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:
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?