Hallo davidwittesz,
die Online Hilfe erklärt das Prinzip recht gut.
Du leitest eine neue Klasse von TThread ab. Das wichtigste ist die Execute Methode, die du überschreibst:
Delphi-Quellcode:
TMyThread = class(TThread)
private
{ private-Deklarationen }
protected
procedure Execute; override;
end;
...
procedure TMyThread.Execute;
begin
while Not Terminated do
{ Deinen Code einfügen, der wiederholt werden soll }
end;
Das Hauptprogramm terminiert (Arnie lässt grüßen
) den Thread auf Knopfdruck:
Delphi-Quellcode:
procedure THauptForm.Button1Click(Sender: TObject);
begin
MyThread.Terminate;
end;