Statusbar/Uhrzeit einblenden

[RWarnecke]

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;