Ich hab da ein kleines Problem mit der Anwendung des Timers
Also als Ersatz zum TTimer der
VCL kann ich den nicht nehmen. Aufgrund der Idee dahinter, um genauer zu sein aufgrund Dieser Methode:
Delphi-Quellcode:
procedure TCoesterTimer.Run;
var
NextTimerTime: Cardinal;
begin
NextTimerTime := TimeGetTime + FInterval;
while True do
begin
repeat
Application.ProcessMessages;
if Application.Terminated then
Exit;
Sleep(1);
until NextTimerTime <= TimeGetTime;
FOnTimer;
Inc(NextTimerTime, FInterval);
end;
end;
Am Ende siehts dann so aus, dass eine Funktion, die den Timer enabled, nicht zu Ende gefuehrt wird, bis die Applikation terminiert:
Delphi-Quellcode:
procedure TCoesterTimer.SetEnabled(Value: Boolean);
var
OldInterval: Byte;
OldOnTimer: TProcedure;
begin
//[...]
if Value then
begin
FEnabled := Value;
Run;
end
//[...]
Zudem:
Delphi-Quellcode:
Self.Destroy;
Self := TCoesterTimer.Create;
Sowas ist schon ziemlich ....
Wenn du einen wirklichen Timer programmieren willst, helfen dir vllt. die
Timer Event Operations weiter
greetz
Mike