Ah! Vielen Dank für den Tip mit csLoading...
Habe es nun so gelöst, scheint prima zu funktionieren:
Delphi-Quellcode:
procedure TDateTimeLabel.SetDateTimePresentation(Value: TDateTimePresentation);
begin
if not (csloading in ComponentState) then Begin;
If FDateTimePresentation <> Value Then
begin
FDateTimePresentation := Value;
// TimerIntervall festlegen
case FDateTimePresentation of
dtpCustom: SetfTimerIntervall(500);
dtpTime: SetfTimerIntervall(500);
dtpDateTime: SetfTimerIntervall(30000);
dtpLongDate: SetfTimerIntervall(30000);
dtpWeekdayDate: SetfTimerIntervall(30000);
dtpWeekdayDateTime: SetfTimerIntervall(30000);
end;
ShowTheTime(self);
end;
end;
end;
Noch eine Verständnis-Frage: Wann genau (von wann--bis wann) liegt denn der Status "csLoading" eigentlich vor?
SCRaT