请问如何在statusbar中显示系统时间?

Question

1.加个TTimer
ontime
  staarusbar.panels[0].text:= formatdatetime(now)

Answer 1

Too easy ，
1  change Data to string 2 
procedure TMainForm.FormShow(Sender: TObject);
begin
  //Show the  Register Form
end;

Answer 2

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

Answer 3

newyj:你好!
我按照你的方法运行后没有任何显示是什么原因?timer控件要改其他参数吗?

Answer 4

1.加个TTimer
ontime
  staarusbar.panels[0].text:= formatdatetime(now) 
2.可以在主窗体的OnShow事件中显示登录窗口

Answer 5

Timer的interval属性设置为1000,enabled属性设置为True

Answer 6

Timer的interval属性设置为1000,enabled属性设置为True

Answer 7

右击statusbar 加入几个panel
formatdatetime(now) 写错了忘了加格式
formatdatetime('yyyy-mm-dd hh:mm:ss',now);

Answer 8

在Statusbar上面加一个Panel然后再加一个Timer
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels.Items[0].Text :=DateTimeToStr(Now);
end;