Nachdem ich auch noch einmal nach anderen Komponenten geguckt habe, habei ich das per Hand gelöst, indem ich bei OnExit auf die 5-Minutenschritte runde.
Falls jemand nach so etwas suchen sollte, anbei der kurze Code... geht sicherlich eleganter, aber so oft bin ich garnicht mit Delphi beschäftigt...
Grüsse,
Autokrat
Delphi-Quellcode:
var
DateTime : TDateTime;
Stunden, Minuten, Sekunden, Millisek : Word;
begin
// Aktuelle Uhrzeit ermitteln
DateTime := Time; //oder eben direkt die zuvor ausgelesene Zeit des TDateTimePickers...
// Uhrzeit splitten
DecodeTime(DateTime, Stunden, Minuten, Sekunden, Millisek);
// Auf 5-Minuten-Schritte runden
Minuten := 5*Round((Minuten*2)/10);
// 60 Minuten = 1 Stunde!!!
if Minuten = 60 then
begin
// Minuten auf Null und Stunde eins rauf
Minuten := 00;
Stunden := Stunden + 1;
end;
end;