如何实现程序的时钟跟着系统同时变化！

Question

如何实现程序的时钟跟着系统同时变化！

Answer 1

加一个timer
procedure Tmainfrm.Timer1Timer(Sender: TObject);
begin
label1.caption:=timetostr(now);
end;

Answer 2

label:=format（'hh"时"mm"分"ss"秒"',now）

Answer 3

加一个timer
procedure Tmainfrm.Timer1Timer(Sender: TObject);
begin
label1.caption:=timetostr(time);
end;

Answer 4

timer1.interval设为1000,即每秒刷新一次

Answer 5

chwdong(chwdong)'s method is ok.

Answer 6

加个timer;
加代码：：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption :=dateTimeTostr(now);
end;