Registriert seit: 2. Mär 2004
5.508 Beiträge
Delphi 5 Professional
|
Re: DateTimePicker: zu einer gewissen Uhrzeit Funktion ausfü
2. Jul 2007, 17:59
Delphi-Quellcode:
procedure TMainForm.Timer_UhrzeitTimer(Sender: TObject);
var
jetzt, bis : TDateTime;
begin
jetzt := Time;
// jetzt noch die Intervalzeit (in ms) umrechnen in Tage
// und zur aktuellen Zeit addieren
bis := jetzt + Timer_Uhrzeit.Interval / MSecsPerDay;
//prüfen ob Uhrzeit im gültigen Bereich
if (DateTimePicker_Uhr.Time >= jetzt) and (DateTimePicker_Uhr.Time<= bis) then
begin
//Timer disablen
Timer_Uhrzeit.Enabled := false;
try
//Procedure "Updaten" starten
Updaten;
finally // <== sicherstellen, dass der Timer auch bei Fehler weiterläuft
//Timer enablen
Timer_Uhrzeit.Enabled := true;
end;
end;
end;
Andreas
|
|
Zitat
|