stausbar控件的第一个tstauspanel如何显示系统时间？

[homewxy]

stausbar控件的第一个tstauspanel如何显示系统时间？

[lion_lh]

StatusBar1.Panels[0]:=datetimetostr(now);

[jacky_shen]

StatusBar1.Panels[0].Text := TimeToStr(Now);

[lion_lh]

StatusBar1.Panels[0].text:=datetimetostr(now);

[haoco]

Statusbar1.Panels[1].Text:=DateToStr(now);

[homewxy]

如何将日期娈为2000年5月六日字样

[homewxy]

各位老大，时间为什么不动，要动的！！！

[jacky_shen]

那你把代码放在Timer控件中。

[jacky_shen]

procedure TForm1.Timer1Timer(Sender: TObject);
var
Y, M, D: Word;
begin
DecodeDate(Now, Y, M, D);
StatusBar1.Panels[0].Text := Format('%d年%d月%d日', [Y, M, D]);
end;

[abcdefg171459]

在timer空间的ontimer事件中写

procedure TFrmLKMain.Timer2Timer(Sender: TObject);
begin
Statusbar1.Panels[1].Text:=DateToStr(now);
end;

[tanlijun37]

放个timer控件就可以了。。。在它的ontimer事件调用上过代码不就可以了。。。

[haj77]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Statusbar1.Panels[0].Text:=ForamtDatetime('YYYY',Now)+'年'+
ForamtDatetime('MM',Now)+'月'+
ForamtDatetime('DD',Now)+'日';
end;

[haj77]

另外Timer1的Timer1.Interval=1000