Q&A

  • 상태바에 흐르는 텍스트 넣기
상태바에 흐르는 텍스트를 넣으려고 합니다.



도움 부탁드립니다...

1  COMMENTS
  • Profile
    아폴론 2001.01.19 22:18
    안녕 하세요.

    완벽 할지는 모르나 흐러가긴 가서 올려 봅니다.



    먼저 폼에 Timer를 한개 갔다 놓습니다.

    Timer의 속성중 Interval를 1000(1초)에서 더작은수로 바꿉니다.50(0.005촌가?)가.

    기냥 1000으로 두면 문자가 흐르지 않고 껑충 강충 뛰어서 갑니다

    상태바의 Width를 알야야 합니다.(만약 780 이라면)

    타이머 이벤트에서 다음과 같이 코딩 합니다.

    procedure TMainForm.Timer1Timer(Sender: TObject);

    begin

    if Label1.Left < 780 then //780은 상태바의 길이, Label1은 문자의 이름.

    label1.Left := label1.Left + 1 else

    label1.Left := -500; //요 숫자는 글씨가 한바퀴 돌고(?)

    end; //머리(또는 꼬랑지)부터 나타나게 해요.



    그럼이만 다른곳을 비추러 갑니다.