Q&A
- label콤포넌트를 이용하여 caption안의 내용이 움직이게..
안녕하세요...
메인폼 하나에 label콤포넌트를 놓고 label콤포넌트 caption속성에 '내이름은 이치형입니다'라고 넣고,,, 프로그램을 실행 시키면 label콤포넌트 caption안의 내용이 좌측으로 계속
이동 되면서 보여지게 하고 싶어요,tv 같은데 보면 화면 아래쪽에 자막이 왼쪽으로 계속 이동
하면서 내용이 보이다가 그 내용이 완전이 안보이면 다시 오른쪽에서 왼쪽으로 광고 문구가
다시 나타 나는 것을 보았을 것입니다. 그것을 구현하고 싶습니다. 메인폼의 FormActivate 이벤트를 이용하여 label콤포넌트의 Left 속성 값을 2나 10씩 감소 시켰더니, label 컴포넌트가
이동 되는게 아니라 label콤포넌트 안의 내용만 몇번 보이다가 나중에는 안보이더라구요...
아래 소스를 참조하여 답변 부탁드립니다...
procedure Tfrmtest.FormActivate(Sender: TObject);
var i: Integer;
begin
LDisplay.Caption := '내이름은 이치형입니다';
While(True) do
begin
if LDisplay.Left = 0 then
LDisplay.Left := Width - 26;
LDisplay.Left := LDisplay.Left - 2;
LDisplay.Refresh;
end;
end;
메인폼 하나에 label콤포넌트를 놓고 label콤포넌트 caption속성에 '내이름은 이치형입니다'라고 넣고,,, 프로그램을 실행 시키면 label콤포넌트 caption안의 내용이 좌측으로 계속
이동 되면서 보여지게 하고 싶어요,tv 같은데 보면 화면 아래쪽에 자막이 왼쪽으로 계속 이동
하면서 내용이 보이다가 그 내용이 완전이 안보이면 다시 오른쪽에서 왼쪽으로 광고 문구가
다시 나타 나는 것을 보았을 것입니다. 그것을 구현하고 싶습니다. 메인폼의 FormActivate 이벤트를 이용하여 label콤포넌트의 Left 속성 값을 2나 10씩 감소 시켰더니, label 컴포넌트가
이동 되는게 아니라 label콤포넌트 안의 내용만 몇번 보이다가 나중에는 안보이더라구요...
아래 소스를 참조하여 답변 부탁드립니다...
procedure Tfrmtest.FormActivate(Sender: TObject);
var i: Integer;
begin
LDisplay.Caption := '내이름은 이치형입니다';
While(True) do
begin
if LDisplay.Left = 0 then
LDisplay.Left := Width - 26;
LDisplay.Left := LDisplay.Left - 2;
LDisplay.Refresh;
end;
end;
2
COMMENTS
-
-
아래의 코드는 완전한 무한루프이군요. 그리고 라벨컴포넌트가 이동되는것이 아니라고
하셨는데 이동되는 것이 맞습니다.
이러한 것은 폼의 이벤트에다 하는 것이 아니고 쓰레드나 타이머를 이용하여 해야됩니다.
이치형 wrote:
> 안녕하세요...
> 메인폼 하나에 label콤포넌트를 놓고 label콤포넌트 caption속성에 '내이름은 이치형입니다'라고 넣고,,, 프로그램을 실행 시키면 label콤포넌트 caption안의 내용이 좌측으로 계속
> 이동 되면서 보여지게 하고 싶어요,tv 같은데 보면 화면 아래쪽에 자막이 왼쪽으로 계속 이동
> 하면서 내용이 보이다가 그 내용이 완전이 안보이면 다시 오른쪽에서 왼쪽으로 광고 문구가
> 다시 나타 나는 것을 보았을 것입니다. 그것을 구현하고 싶습니다. 메인폼의 FormActivate 이벤트를 이용하여 label콤포넌트의 Left 속성 값을 2나 10씩 감소 시켰더니, label 컴포넌트가
> 이동 되는게 아니라 label콤포넌트 안의 내용만 몇번 보이다가 나중에는 안보이더라구요...
> 아래 소스를 참조하여 답변 부탁드립니다...
> procedure Tfrmtest.FormActivate(Sender: TObject);
> var i: Integer;
> begin
> LDisplay.Caption := '내이름은 이치형입니다';
> While(True) do
> begin
> if LDisplay.Left = 0 then
> LDisplay.Left := Width - 26;
> LDisplay.Left := LDisplay.Left - 2;
> LDisplay.Refresh;
> end;
> end;
>
(NOTICE) You must be logged in to comment on this post.
-
- 이길환
- 2000.03.27 23:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 이치형
- •
- 2000.03.27 23:54
- 2 COMMENTS
- /
- 0 LIKES
안녕하세요... 메인폼 하나에 label콤포넌트를 놓고 label콤포넌트 caption속성에 '내이름은 이치형입니다'라고 넣고,,, 프로그램을 실행 시키면 label콤포넌트 caption안의 내용이 좌측으로 계속 이동 되면서 보여지게 하고 싶어요,tv 같...-
임철우•2001.12.12 05:26내용은 잘 보았습니다. 그런식으로 해도 되겠지요 하지만 간단한 명령어가 있는데 그렇게 할 필요가 있을...
-
최용일•2000.03.28 00:51아래의 코드는 완전한 무한루프이군요. 그리고 라벨컴포넌트가 이동되는것이 아니라고 하셨는데 이동되...
-
- Ghost lee
- 2000.03.27 23:25
- 0 COMMENTS
- /
- 0 LIKES
-
- hjcho96
- •
- 2000.03.27 23:24
- 1 COMMENTS
- /
- 0 LIKES
-
김용택•2000.04.18 23:55hjcho96 wrote: > interbase password & user id를 변경하는 방법있으면 좀 > 갈카 주세요.... > 그리고...
-
- 이수환
- •
- 2000.03.27 23:09
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.28 00:54무식하게 안만들고 할 수 있나요? 어차피 델파이입장에서 보면 씨디, 엠피, 믹서.... 이러한 것들이 폼...
-
- 김종근
- 2000.03.27 22:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 장민석
- •
- 2000.03.27 22:40
- 3 COMMENTS
- /
- 0 LIKES
-
종이학•2000.03.28 05:12델파이 메뉴에서 Tools의 debuger options중 AccessViolation를 user program에서 핸들링하지 말고 디...
-
유솔로몬•2000.03.28 00:36이 에러는 특이하게도 델파이로 개발된 응용프로그램에서 많이 볼 수 있습니다. 메모리 덤프인지 에러 ...
-
유솔로몬•2000.03.29 01:06만약 디버거로 소스에서 원인 찾기를 실패하셨다면 운영체제 및 관련 프로그램 재설치를 권합니다. 종...
-
- toto1052
- 2000.03.27 22:38
- 0 COMMENTS
- /
- 0 LIKES
-
- ses
- 2000.03.27 22:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 심인식
- •
- 2000.03.27 21:01
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.03.27 21:54심인식 wrote: > 폼을 투명하게 만들려고 하는데... 방법을 갈켜주세요. > 아래 설정으로 작성을 해봤지...
-
- 오정섭
- •
- 2000.03.27 21:01
- 1 COMMENTS
- /
- 0 LIKES
-
HART•2000.03.27 21:44newpage 메소드는 preview 나 print 명령어를 먼저 실행해야 사용할 수 있는 메소드임. 아마 아래소스는 ...
-
- 임형호
- 2000.03.27 20:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 민은홍
- •
- 2000.03.27 20:35
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.27 20:44이미 저장이 되있는데 다시 활성화가 될 필요가 있겠습니까? 폼이나 에디트의 내용을 고친다면 다시 활...
-
- 델초
- •
- 2000.03.27 20:29
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.27 20:42그냥 항상 쓰시던대로 컴포넌트를 배열로 만들어서 쓰셔도 되는데요... var CompoArray: array[0..99...
-
- 이치형
- 2000.03.27 20:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 유희정
- •
- 2000.03.27 18:54
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.27 19:15==> {$define TEST} 부분도 추가해하시면 됩니다. 유희정 wrote: > 도와주세요. > Object pascal에...
-
유희정•2000.03.27 19:35최용일님의 경우는 이미 test해 보았습니다. {$Define TEST}를 sam_header.pas부분에 넣으면 항상 {ifdef ...
-
최용일•2000.03.27 19:46심볼을 제거할땐 $undef컴파일러 지시자를 쓰시면 됩니다. 이미 지정된 심볼을 다시 없애버리는 기능입니...
-
- 이동준
- •
- 2000.03.27 18:49
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•2000.03.27 19:23이동준 wrote: > 궁금한것이 한가지 있습니다. > 숫자를 표현할때 보통 10,000 처럼 ,를 쓰지요. > 근데...
-
-
- 꼽빼기
- •
- 2000.03.27 12:39
- 1 COMMENTS
- /
- 0 LIKES
-
안경옥•2000.03.27 18:52꼽빼기 wrote: > 이제 막 델파이에 입문한 초보입니다. > > 다른건 모르겠는데 > > quick report는 ...
-
- 윤티
- 2000.03.27 09:31
- 0 COMMENTS
- /
- 0 LIKES
그런식으로 해도 되겠지요 하지만 간단한 명령어가 있는데 그렇게 할 필요가 있을까요
한번 제가 만든것을 참조해 보세요.
Info ->라벨
_str : string;
if (Length(Info) > 20) then
begin
SetLength(_str, Length(Info));
Move(Info[2], _str[1], Length(Info)-1);
_str[length(_str)] := Info[1];
Info := _str;
end;
OSDInfo.Caption := OSDInfoTxt;
이런 식으로 하면 원하시는 대로이동을 할꺼에요. 제가 사용한 것은 만약 문자의 크기를 넣고
거기에 만족하지 못하면 길이를 만드는 거죠. 그래서 move명령을 이요해 왼쪽으로 이동하키는
방법이죠. 당연히 타이머에 넣어야 겠죠.. 원하시는 답이 이건지 모르겠네요
윈엠프에서 제목나오는것 처럼요..^^
이치형 wrote:
> 안녕하세요...
> 메인폼 하나에 label콤포넌트를 놓고 label콤포넌트 caption속성에 '내이름은 이치형입니다'라고 넣고,,, 프로그램을 실행 시키면 label콤포넌트 caption안의 내용이 좌측으로 계속
> 이동 되면서 보여지게 하고 싶어요,tv 같은데 보면 화면 아래쪽에 자막이 왼쪽으로 계속 이동
> 하면서 내용이 보이다가 그 내용이 완전이 안보이면 다시 오른쪽에서 왼쪽으로 광고 문구가
> 다시 나타 나는 것을 보았을 것입니다. 그것을 구현하고 싶습니다. 메인폼의 FormActivate 이벤트를 이용하여 label콤포넌트의 Left 속성 값을 2나 10씩 감소 시켰더니, label 컴포넌트가
> 이동 되는게 아니라 label콤포넌트 안의 내용만 몇번 보이다가 나중에는 안보이더라구요...
> 아래 소스를 참조하여 답변 부탁드립니다...
> procedure Tfrmtest.FormActivate(Sender: TObject);
> var i: Integer;
> begin
> LDisplay.Caption := '내이름은 이치형입니다';
> While(True) do
> begin
> if LDisplay.Left = 0 then
> LDisplay.Left := Width - 26;
> LDisplay.Left := LDisplay.Left - 2;
> LDisplay.Refresh;
> end;
> end;
>