有人问题请教??? — 编程爱好者社区

您所在位置：社区首页 — Delphi讨论区 — 有人问题请教???

回帖发新帖刷新版面

主题：有人问题请教???

delphishiyuhe [专家分：10] 发布于 2006-04-27 16:09:00

请问用了statusbat1后在窗体加上timer1,如何用TForm1.Timer1Timer事件完成时间显示???

本帖地址： http://bbs.pfan.cn/post/161378.html

回复列表（共2个回复）

沙发

huitian [专家分：1410] 发布于 2006-04-27 17:47:00

设timer的interval为1000:

procedure Tfinecontrol1.DateTimerTimer(Sender: TObject);
begin
statusbar1.Panels[0].Text:='当前日期时间：'+datetostr(date())+chr(32)+timetostr(time()); (*显示日期时间*)
end;

板凳

zhangyaootao [专家分：40] 发布于 2006-04-29 08:59:00

不错，顶

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：有人问题请教???

回复列表（共2个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：有人问题请教???

回复列表 （共2个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共2个回复）