Q&A

  • Label안의 글을 외쪽에서 오른쪽으로 흐르게 할려면..도움을.
질문> Label안 글을 외쪽에서 오른쪽으로 흐르게 할려면 어떻게 해야 하남요..

기본부터 잘 모르겠네요.

언제나 질문만 드려 죄송하고요.

상세한 답변부탁드리고요.



1  COMMENTS
  • Profile
    이광형 2000.12.21 21:50
    즉흥적인 답변이라 좀더 편리한 방법이 있을텐데...

    그냥 프로그램으로 해결하는 방법입니다. 다른 컴포넌트나 아님 다른 고수님들의 의견을 더 들어 보심이 좋을듯 합니다.

    아래 소스는 생각나는데로 그냥 만들어 봤습니다. 다듬어지지 않는 것입니다. 그냥 참고만 하세요.



    폼위에 레이블컴포넌트 하나하고 타이머컴포넌트 하나하고 올려놓고 타이머의 인터벌을 500정도 주니까 빠르게 움직이긴 합니다.

    즐거운 하루 되세요^^



    var

    Form1: TForm1;

    a : string;

    i,k : integer;

    implementation



    {$R *.DFM}



    procedure TForm1.FormCreate(Sender: TObject);

    begin

    a := '레이블의 텍스트 이동하기';

    i := 0;

    k := 1;

    end;



    procedure TForm1.Timer1Timer(Sender: TObject);

    var

    j : integer;

    b : string;

    begin

    if i = 50 then k := -1;

    if i = 0 then k := 1;

    i := i + (k*1);

    b := a;

    for j := 0 to i do

    begin

    b := ' ' + b;

    end;

    label1.caption := b;

    end;





    파이파이 wrote:

    > 질문> Label안 글을 외쪽에서 오른쪽으로 흐르게 할려면 어떻게 해야 하남요..

    > 기본부터 잘 모르겠네요.

    > 언제나 질문만 드려 죄송하고요.

    > 상세한 답변부탁드리고요.

    >