怎样在窗体上显示动态时间？ - 编程论坛

#2

ruanjian21102008-10-31 12:32

procedure TForm1.Timer1Timer(Sender: TObject);
var
ADate:TDateTime;
ss:string;
Days:array[1..7] of string;
begin
  days[1]:='星期日';
  days[2]:='星期一';
  days[3]:='星期二';
  days[4]:='星期三';
  days[5]:='星期四';
  days[6]:='星期五';
  days[7]:='星期六';
  ADate:=strtodate(FormatDateTime('yyyy-mm-dd',date));
  ss:=FormatDateTime('yyyy"年"m"月"d"日"hh:nn:ss',now);
  StatusBar1.Panels[1].Text:='当前时间:'+ss+#0+days[DayOfWeek(ADate)];
end;

#3

逍遥帅哥2008-11-01 20:44

要是想显示当前星期信息，可以再加一句：
StatusBar1.Panels[2].Text:='当前星期:'+days[DayOfWeek(ADate)];
以上代码在D7中测试通过

#4

provoke2008-11-03 22:15

要时间是动态变化的，添加一个Timer，双击之：

Label1.Caption := timetostr(now);

时间格式可以自己用 Formatdatetime 函数生成。

[[it] 本帖最后由 provoke 于 2008-11-3 22:17 编辑 [/it]]

#5

Winmillion2008-11-04 17:42

Timer1Timer的控件为什么我找不到的?
我安装的是DELPHI大企业版

#6

Winmillion2008-11-04 18:01

2楼我运行你的代码提示:StatusBar1.Panels[1].Text:='当前时间:'+ss+#0+days[DayOfWeek(ADate)];
这个是什么控件?

#7

超超小火星2008-11-04 20:23

那个是状态栏控件吧。在DELPHI7里的win32组件倒数第六个。

#8

ruanjian21102008-11-04 20:47

我的代码在DELPHI6和DELPHI7中测试通过，再高的版本我还没用过。我想再高的版本应该都有Timer和StatusBar这两个控件的。这两个控件用的比较广泛，在.NET里面也有的.

#9

provoke2008-11-04 22:54

Timer在System组件里