如何在statusbar上显示系统日期与时间

Question

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

Answer 1

//定时刷新
procedure Tfrmmain.Timer1Timer(Sender: TObject);
begin
     StatusBar1.Panels[1].Text := FormatDateTime('yyyy"年"mm"月"dd"日" hh:mm:ss', Now());
end;

Answer 2

statusbar1.SimpleText:=formatdatetime('YYYY-MM-DD hh:mm:ss',now);
放在TIMER的ONTIMER中

Answer 3

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

Answer 4

statusbar1.SimpleText:=formatdatetime('YYYY-MM-DD hh:mm:ss',now);
在ONTIMER中

Answer 5

StatusBar1.SimpleText :=new;
将SimplePanel设为True;

Answer 6

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

Answer 7

procedure  Tfrmmain.Timer1Timer(Sender:  TObject); 
begin 
StatusBar1.Panels[1].Text  :=  FormatDateTim('yyyy"年"mm"月"dd"日"  hh:mm:ss',  Now()); 
end;
每秒刷新一次

Answer 8

实际上最好的方法是放在Application.OnIdle中，无需增加控件，不占资源//==============================================================================
//0.3.Application空闲处理*******************************************************
//==============================================================================
procedure TForm_Client.AppIdleHandler(Sender: TObject; var Done: Boolean);
begin
  StatusBar.Panels[2].Width := StatusBar.Width - StatusBar.Panels[0].Width - StatusBar.Panels[1].Width - 165;
  StatusBar.Panels[3].Text := '  ' + DateTimeToStr(Now)；
end;//==============================================================================
//1.3.创建主窗口并初始化********************************************************
//==============================================================================
procedure TForm_Client.FormCreate(Sender: TObject);
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  //1.3.1.使用户权限生效********************************************************
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
begin
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  //1.变量初始化****************************************************************
  //~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  Application.OnIdle:= AppIdleHandler;

Answer 9

onldle 是什么事件啊？
讲讲！

Answer 10

procedure  Tfrmmain.Timer1Timer(Sender:  TObject); 
begin 
          StatusBar1.Panels[1].Text  :=  FormatDateTime('yyyy"年"mm"月"dd"日"  hh:mm:ss',  Now()); 
end;

Answer 11

OnIdle是空闲处理，你的程序什么也不做时会触发该事件