在窗体上动态显示系统时间

Question

如何在窗体上动态显示系统时间？
谢谢！

Answer 1

放一个Timer然后在里面写上lable1.caption := datatimetostr(now)就可以了

Answer 2

晕，这么简单的问题，我来晚了。
补充一句:把timer的intervel设置为1000，就可以和时间同步了

Answer 3

应该是lable1.caption := datetimetostr(now)

Answer 4

procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption := datetimetostr(now);
end;

Answer 5

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.caption :='日期:'+datetostr(date)+' 时间:'+timetostr(time);
end;

Answer 6

如果不想显示日期(只想显示小时:分:秒):请这样写--
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption := formatDateTime('hh:nn:ss',now);
end;

Answer 7

来晚了，严重同意
label1.caption:='系统时间：'+FormatDateTime('yyyy"年"mm"月"dd"日" hh"时"mm"分" ampm', Now);

Answer 8

now; wofan(我烦)说了啊；
你可以用RX CONTROLS里的VCL；还有外观呢，呵呵

Answer 9

select current_date from aa  //日期(aa是表名,表中至少有一条数据)
select current_time from aa  //日期和时间
是想问这个问题吗?