新手请教：在状态栏中如何显示当前时间?

Question

在状态栏中想显示系统当前时间，比如：2006年8月8日  08：08：08 呢？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);begin
 StatusBar1.SimpleText := FormatDateTime('yyyy年mm月dd日 hh:mm:ss',now);end;

Answer 2

我刚才试了statusbar1.Panels.Items[1].Text := FormatDateTime('yyyy年mm月dd日 hh:mm:ss',now); 发现时间是静态的，我想实现动态的，象时钟一样自动跳动显示时间。

Answer 3

放一个timer组件，时间设置为1000毫秒，然后在ontime事件中用上面代码
procedure TForm1.Timer1Timer(Sender: TObject);
begin
   StatusBar1.SimpleText := FormatDateTime('yyyy年mm月dd日 hh:mm:ss',now);
end;

Answer 4

StatusBar1.SimpleText := FormatDateTime('yyyy''年''mm''月''dd''日'' hh:mm:ss',now);这样子就没问题了

Answer 5

statusbar1.Panels.Items[1].Text := FormatDateTime('yyyy年mm月dd日 hh:mm:ss',now)
可以显示年月日哦