Q&A

  • TTimer 사용 방법좀 알려주세요
타이머를 이용해서 string을 label에 보여주려고 합니다.

버튼의 click 이벤트가 발생하면 string을 보여주고 일정시간 딜레이 시킨다음 다음 string을 보여주고..
이렇게 하려고 합니다.
딜레이 시간은 일정하지 않습니다.

어떻게 구현하면 될지...
그리구 타이머를 이용하는 것 보다 좋은 방법이 있다면 알려주세요...
이 게시물을
2  COMMENTS
  • Profile
    정성훈 • 2002.09.27 01:20
    참고하세요..
    이건 타이머로 된 거지만 현재 클라이언트의 시간을 체크해서 하는것도 괜찮을 것 같은데요..
    이부분은 타이머 하나로 2가지 이상이벤트를 발생시킬때 쓰시면 될거구..
    음 라벨하나에만 하신다면 Interval 을 조정하세요
    대략 1000 이 1초 입니다.

    var
        iCount : Integer;
    //버튼클릭
       iCount := 0;
       Timer1.Enabled := True;

    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
       if iCount = 100 then
       begin
          iCount := 0;
          Label1.Captino := sString;
       end else begin
          Inc( iCount );
          sString := ???'
       end;
    end;


  • Profile
    이추형 • 2002.09.27 01:13
    procedure TfrmTest.FormCreate(Sender: TObject);
    begin
      inherited;
      Timer1.Interval := 1000; //1000은 1초
      Timer1.Enabled  := False;
    end;

    procedure TfrmTest.ErrTimerTimer(Sender: TObject);
    begin
      Label1.Caption := DateTimeToStr(Now);
    end;
←First Page
867 868 869 870 871 872 873 874 875 876
Last Page→
한델 로그인 하기