Also:
Delphi-Quellcode:
procedure TFormHaupt.Timer1Timer(Sender: TObject);
var
hr, min, sec, msec: Word;
begin
DecodeTime(now, hr, min, sec, msec);
StatusBar1.Panels[2].Text := FormatDateTime ('hh:nn', Now);
Statusbar1.Panels[1].text := DateToStr(now);
end;
Im Panel[2] wird die Zeit und in dem Anderen das Datum ausgegeben.
Zuuvor muss man natürlich in der statusbar panels erzeugen (doppelt auf die bar klicken und "neue hinzufügen")
(Etwa) Noch Fragen?
Grüße, dopeline
