我想在StatusBar上显示系统时间，一秒一秒地刷新显示，应该怎么做？最好有代码。

Question

加一个Timer控件，Internal为1000.在OnTimer事件力处理！

Answer 1

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[0].Text := TimetoStr(Now);
end;

Answer 2

在OnTimer事件中
frm_main.Panels.Items[4].Text="时间:"+Time();

Answer 3

注意，双击StatusBar，添加Panels

Answer 4

一样啊！
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[0].Text := DateTimetoStr(Now);
                               ~~~~~~~~~~~~~修改 
end; 

Answer 5

StatusBar1.Panels[0].Text := FormatDateTime('YYYY,MM,DD HH:MM:SS', Now);

Answer 6

好，给分，其实我想在Date和Time中加入两个空格，所以采用StatusBar1.Panels[0].Text := DatetoStr(Now)+'  '+TimetoStr(Now),谢谢！