Hallo liebes Forum.
Folgendes Problem: Ich möchte, dass eine Timer Geschichte in einem Hintergrund Thread arbeitet. Eigentlich wäre es eine Möglichkeit mit Endlosschleifen zu arbeiten, dies funktioniert aber bei mir nicht, weswegen ich es über Timer realisieren will. Es funktoniert bisher mit dem Timer, jedoch lediglich im Hauptprogramm.
Hier mein bisheriger Rahmencode (mit nicht funktionierender Endlosschleife):
Code:
…
type
TMyThread = class(TThread)
procedure Execute; override;
end;
type
TForm33 = class(TForm)
…
procedure TMyThread.Execute;
begin
while true do begin
Sleep(1000);
try …
{längerer zu wiederholender Threadcode}
except …
end;
end;
...
procedure TForm33.FormCreate(Sender: TObject);
var MyThread: TMyThread;
begin
MyThread := TMyThread.Create(False); // startet sofort
end;