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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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;

Answer 7

在timer空间的ontimer事件中写procedure TFrmLKMain.Timer2Timer(Sender: TObject);
begin
  Statusbar1.Panels[1].Text:=DateToStr(now);
end;

Answer 8

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

Answer 9

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