Q&A

  • StatusBar에 계속적으로 시간보여주기
StatusBar에 계속적으로 시간보여주려 하는 데 Timer를 이용하여 어떻게 해야 되나요

3  COMMENTS
  • Profile
    사노테 2000.04.03 23:26
    시간보여줄때 Timer만드셨져... 그러면 시간패널과 다른 패널

    보통 나누어 주셨을꺼예여... 그럼 2번째 패널에 시간은 넣거든여..

    뭐 아니기두 하지만 그렇다면



    procedure TfrmAnimal_Main.Timer1Timer(Sender: TObject);

    begin

    StatusBar1.Panels[1].Text := FormatDateTime('c',Now);

    end;



    이러한 소스라면 시간이 Timer에 따라 시간이 흐르져..

    시간은 '2000-04-03 오후 2:13:00' 이렇게 흐르겠네여..

    FormatDateTime은 알아서 바꿔 주세여... 크크



    blacklist wrote:

    > StatusBar에 계속적으로 시간보여주려 하는 데 Timer를 이용하여 어떻게 해야 되나요

  • Profile
    blueSky 2000.04.03 23:17
    blacklist wrote:

    > StatusBar에 계속적으로 시간보여주려 하는 데 Timer를 이용하여 어떻게 해야 되나요





    procedure TDSMainForm.Timer1Timer(Sender: TObject);

    begin

    StatusBar1.Panels[2].Text := TimeToStr(Time);

    end;



  • Profile
    조규춘 2000.04.03 23:17
    blacklist wrote:

    > StatusBar에 계속적으로 시간보여주려 하는 데 Timer를 이용하여 어떻게 해야 되나요



    onTimer 이벤트에서 다음과 같이 주면 되지요!



    procedure TForm1.Timer1Timer(Sender: TObject);

    begin

    statusbar1.Panels[0].Text := timetostr(now);

    end;



    statusbar1.Panels[0]이거는 statusbar1 컴포넌트의 오른쪽 버튼을 누르면 나오는 panel editor를 이용해서 삽입한거구요!

    그럼 저는 이만....