请问怎样实时显示时间？

[wendy_welcom]

如上图，想实现这样的功能：只要是程序一运行，界面的最上方就实时的显示时间，星期，农历， 请问应该怎么实现呢？

谢谢。

[Corn1]

timer，隔一秒取一次时间

[langzulajiao]

看不到图 拉个控件在timer事件里写

[fangsp]

给你写个函数

[fangsp]

procedure TForm1.SetDateTime;
begin
    StatusBar1.Panels[0].Text:=FormatDateTime('  日期：yyyy年MM月dd日  时间：hh时mm分ss秒', now);
end;
procedure TForm1.Timer1Timer(Sender: TObject); //timer的Interval = 1000;
begin
   SetDateTime;
end;

[zhangxiaommmm]

学习了

[zhangxiaommmm]

但好像农历不好弄吧？

[yeinuse]

不赞成用timer控件，每秒刷新，比较占用资源。

[fangsp]

[Quote=引用 7 楼 yeinuse 的回复:]
不赞成用timer控件，每秒刷新，比较占用资源。
[/Quote]
现在的机器不比以前的机器了
一个timer跟本就占不了多少资源

[pangu9999]

[Quote=引用 7 楼 yeinuse 的回复:]
不赞成用timer控件，每秒刷新，比较占用资源。
[/Quote]

要“界面的最上方就实时的显示时间”，不刷新的话时间不会变啊。

[poweretly]

学习一下

[xiaoping04408]

放个Raise控件不就OK了

[wendy_welcom]

图片

[wendy_welcom]

[wendy_welcom]

http://album.hi.csdn.net/views/photo/244664