状态栏控件请教

Question

现在对状态栏控件有两点不清楚，请高手指点。非常感谢！1、就是如果在状态栏显示当前的实时时间，现在我只能做到状态栏显示日期，但是时间是不会走的。2、如果我按的大写、数字键后，如果在状态栏上显示出来呢？（如NUM或CAP是红色，关掉就是灰色）

Answer 1

给你代码
procedure TFrm_Main.AppIdle(Sender: TObject; var Done: Boolean);
begin
  SBar_Main.Panels[0].Text := FormatDatetime('dddddd  hh:mm:ss', now);
  Done := False;
end;
procedure TFrm_Main.FormCreate(Sender: TObject);
begin
  Application.OnIdle := AppIdle;
  EnableMenuItem(GetSystemMenu(Handle, FALSE), sc_close,MF_BYCOMMAND or MF_GRAYED);
end;

Answer 2

sta1.Panels[0].Text :=timetostr(time());