如果在状态栏动态的显示当前时间（搜索没法用，只好提问了）(50分)

O

oceanwave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-24

• #1

如上

 

S

SINGLBOY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-24

• #2

Timer

 

O

oceanwave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-24

• #3

我知道Timer,但详细怎么用？

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-24

• #4

procedure TForm1.Timer1Timer(Sender: TObject);
var
LT : TSYSTEMTIME;
begin
GetLocalTime(LT);
StatusBar1.Panels[0].Text :=
IntToStr(LT.wHour) + ':' +
IntToStr(LT.wMinute) + ':' +
IntToStr(LT.wSecond));
end;

 

小

小人物

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-24

• #5

procedure TForm1.Timer1Timer(Sender: TObject);
begin
StatusBar1.SimpleText:=timetostr(time);
//或StatusBar1.Panels.Items[0].Text:=timetostr(time);
end;

 

O

oceanwave

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-24

• #6

TNND，高手就是高手，厉害！搞定了，给分

 

C

cqhxping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-24

• #7

Timer的响应代码：
procedure TForm1.Timer1Timer(Sender: TObject);
var Hour, Min, Sec, MSec: Word;
begin
DecodeTime(Now, Hour, Min, Sec, MSec);
StatusBar1.Panels[0].Text:=Format('%d：%d：%d：%d',[Hour, Min, Sec, MSec])；
end;