Aktuelle Uhrzeit + Datum in Statusbar[0] anzeigen.

[marabu]

Wer eine ActionList auf seiner MainForm hat, der erzeugt einfach eine ClockAction und weist sie der property MainForm.Action zu.

Im event handler für OnUpdate der Action sollte dann das hier stehen:

Delphi-Quellcode:

procedure TMainForm.ClockActionUpdate(Sender: TObject);
begin
  StatusBar.Panels[0].Text := DateTimeToStr(Now);
end;

Grüße vom marabu