请问我想再text力作一个可以动的时间。怎么做

Question

没什么的只是想这么做啊
因为每次看时间他都是静止的
我想如果在text李能让他想电子表那样动有多好
但是我不知道怎么做啊

Answer 1

timer ontime event:
edit1.text:=dateTimeTostr(Now);
???

Answer 2

加一TIMER控件，在它的ONTIMER事件里写如下程序：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   caption:=timetostr(time);
end;
窗体标题就会随时间变了。

Answer 3

你用一个定时器,设置它的interval=1000
然后在定时器的ontimer事件中,读系统时间就可以了