Thema: Delphi Timer reseten?

Einzelnen Beitrag anzeigen

Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.542 Beiträge
 
Delphi 11 Alexandria
 
#18

AW: Timer reseten?

  Alt 10. Dez 2010, 08:24
Das kann man aber doch vermutlich einfach umgehen:
Delphi-Quellcode:
procedure ToggleTimer(Timer: TTimer;value: Boolean);
begin
  if Assigned(Timer) then
    begin
      (* hier sollte der Setter auf jeden Fall durchlaufen werden *)
      Timer.Enabled := not Timer.Enabled;
      Timer.Enabled := Value;
    end;
end;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat