@nahpets:
Danke für die Info...
Mir ist schon aufgefallen, dass mein erster Ansatz nicht zu gebrauchen ist, da er niemals zu 100% funzt.
Hatte gerade angefangen das komplett umzubauen und mal zu schauen ob der neue Ansatz besser ist...
Delphi-Quellcode:
Procedure TForm1.FormCreate(Sender: TObject);
Begin
labDate.Caption:= DateToStr(Now);
timerTIME.Enabled:= True;
End;
Procedure TForm1.timerTIMETimer(Sender: TObject);
Var
CheckNewDay: String;
Begin
// UpdateTIME
CheckNewDay:= FormatDateTime('hh',Now);
If CheckNewDay = '00'
Then
Begin
If booDateUpdated
Then Exit;
labDate.Caption:= // Werte aktualisieren...
booDateUpdated:= True;
End
Else booDateUpdated:= False;
End;
Ich schau mir jetzt erstmal deinen Weg an...