Timer vorzeitig beenden

[Walter Röder]

Hallo,

wie kann ich einen Timer (Laufzeit 1 Stunde) vorzeitig beenden.
Mit timer.enabled:=false endet der Timer erst nach der Restlaufzeit.

Vielen Dank und Gruß

W. Röder

[Hagen Reddmann]

das stimmt nicht, hier die souren von TTimer

<pre>

procedure TTimer.UpdateTimer;
begin
KillTimer(FWindowHandle, 1);
if (FInterval <> 0) and FEnabled and Assigned(FOnTimer) then
if SetTimer(FWindowHandle, 1, FInterval, nil) = 0 then
raise EOutOfResources.Create(SNoTimers);
end;<br>

procedure TTimer.SetEnabled(Value: Boolean);
begin
if Value <> FEnabled then
begin
FEnabled := Value;
UpdateTimer;
end;
end;

</pre>

Wie du siehst bei .Enabled := False wird intern .UpdateTimer; aufgerufen. Als erstes steht dort KillTimer() was den Timer beendet.<br>

Gruß Hage