Threads - Methode .. nicht in Basisklasse gefunden

**SyntaxXx**

Ok ich hab jetzt nochmal ein wenig gelesen.

Habe jetzt hier folgendes:

In ein Memo wird die ganze Zeit "Thread started" geschrieben.

Normalerweise ohne thread würde das Programm komplett abschmieren, doch jetzt kann ich die Form verschieben wie ich es möchte.
Jetzt ist nur die Frage, wie kann ich den Thread wieder schließen?

Hier mein Code:

markieren

Code:

			procedure MyThread.Execute;

begin

repeat

Synchronize(Form1.FillMemo);

until 0 = 1;

end;

procedure TForm1.Button1Click(Sender: TObject);

var Thread : MyThread;

begin

Thread := MyThread.Create(true);

Thread.Priority := tpLowest;

Thread.FreeOnTerminate := true;

Thread.Resume;

end;

procedure TForm1.FillMemo;

begin

Memo1.Lines.Add('Thread started');

end;

Am besten wäre es wenn ich mit einem zweiten button den Thread wieder Stoppen kann.
Das problem was ich habe, bei Button1 erstelle ich den Thread "Thread := MyThread.Create(true);".

Wenn ich das jetzt bei Button2 auch aufrufe würde ich ja den thread nochmal starten.
Aber ohne den Aufruf kann ich "Thread.terminate;" nicht aufrufen.

Könnt ihr mir da noch helfen?

Threads - Methode .. nicht in Basisklasse gefunden

AW: Threads - Methode .. nicht in Basisklasse gefunden

Forumregeln