Zeit in hh:mm:ss anzeigen

[BullsEye]

Delphi-Quellcode:

VAR Hour, Min, Sec, mSec: Word;
begin
  Panel1.Caption := TimeToStr(Time);
  StatusBar1.Panels[0].Text := TimeToStr(Time);
  StatusBar1.Panels[1].Text := FormatDateTime ('"Heute ist" dddd, "der" d mmmm yyyy" ', Date);
  DecodeTime(time, Hour, Min, Sec, mSec);
  TrackBar1.Position := Sec;

Zum Download
Quelle