Delphi-Quellcode:
procedure TFormMain.TStatusBarTimer(Sender: TObject);
Var
DateTime: TDateTime;
Uhrzeit: string;
Datum: string;
begin
DateTime:= Time;
Uhrzeit:= TimeToStr(DateTime);
Datum:= DateToStr(Date());
SBMain.Panels[1].Text:= 'Datum: ' + Datum + ' Uhrzeit: ' + Uhrzeit;
end;
das ist der komplette code.
SBMain ist nur die StatusBar.
[edit=mkinzler] Mfg, mkinzler[/edit]