我想做个窗体在窗体的莫部分 专门用来显示时间（00年00月00日 am/pm 00：00：00） 并且时间是动态变化的就是能看见秒在动。请高手把代码写下，写写。

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;

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

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

Label1.Caption := timetostr(now);

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

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

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

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

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

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

Timer在System组件里