Hi,
Antwort von Vjay schon mal richtig!
Frage: Warum ein Timer im Thread?
Der Timer verhält sich doch selber wie ein Thread. Was soll der da?
Aber zu deiner Frage. Ergänze deinen Code um folgendes:
in private:
FTimerTimer : Boolean;
im Ereignis TimeronTimer:
FTimerTimer := True;
in Execute:
Delphi-Quellcode:
procedure TMyThread.Execute;
begin
FStartTime := Now;
...
timer := TTimer.Create(nil);
timer.OnTimer := TimerOnTimer;
timer.Interval := 100;
while not terminated or FTimerTimer do
begin
...
...
end;
end;
Dann arbeitet dein execute solange, bis der Thread terminiert wird oder dein OnTimer-Ereignis eintritt.
Prüfe bitte auch, ob dein Thread gestartet ist.
Gruß oki