Es gibt noch eine andere Möglichkeit. Dazu brauchst Du die Komponente TJvClock von den
Jedi's und eine Statusbar mit mehreren Panels. In diesem Beispiel wird die Uhr ins 3 Panel eingefügt. Diese paar Zeilen in das Ereignis FormShow und schon hast Du Deine aktuelle Uhrzeit in der Statusleiste.
Delphi-Quellcode:
// Die Uhr in das dritte Panel setzen von der Statusbar
Statusbar.Perform(SB_GETRECT, 2, Integer(@R));
Clock.Parent := Statusbar; //Clock adoptieren
Clock.Top := r.Top; //Größe der
Clock.Left := r.Left; //Clock setzen
Clock.Width := r.Right - r.Left; //und an Panel anpassen
Clock.Height := r.Bottom - r.Top;