Eventuell hilft das: http://www.michael-puff.de/Programmi...rials/Threads/ Kapitel 10.

Oder das hier http://www.delphipraxis.net/142081-p...ogressbar.html (mit einem fertigen Beispiel-Projekt)

Oder das hier http://www.delphipraxis.net/847415-post19.html (ok, ist schon etwas abgedrehter)

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?

@SyntaxXx

Wenn du Delphi-Code postest, dann benutze bitte die Delphi-Tags
für sonstigen Code die Code-Tags

sonst krieg ich hier Augenkrebs

markieren

Code:

procedure SiehtDoofAus;
begin
  // Ja ganz doof
end;

markieren

Delphi-Quellcode:

procedure SiehtVielBesserAus;
begin
  // Ja viel besser
end;

Nach über 100 Beiträgen solltest du das eigentlich wissen und es ist lediglich ein Knöppeschen weiter
(und eine anständige Formatierung/Einrückung sollte auch drin sein)

Nun zu deiner Frage:

1. In der Execute-Methode hast du keine Abbruchbedingung definiert until Terminated;
2. Thread ist als lokale Variable in der procedure definiert. Ausserhalb der procedure kann auf diese nicht zugegriffen werden und beim erneuten Aufrufen der procedure ist der Wert undefiniert (auf jeden Fall nicht mehr mit einem vernünftigen Wert gefüllt)

Deklariere in der Form eine entsprechende Thread-Variable

markieren

Delphi-Quellcode:

type
  TFooForm = class( TForm )
  ...
  private
    Thread : MyThread;
  ...
  end;

und den Rest so

zusammenfalten · markieren

Delphi-Quellcode:

procedure MyThread.Execute;
begin
  repeat
    Synchronize(Form1.FillMemo);
  until Terminated;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Assigned( Thread ) then
    begin
      Thread.Terminate;
      Thread := nil;
    end
  else
    begin
      Thread := MyThread.Create(true);
      Thread.Priority := tpLowest;
      Thread.FreeOnTerminate := true;
      Thread.Resume;
    end;
end;

Jetzt wird mit jedem Klick auf den Button1 der Thread gestartet und auch wieder angehalten

Ok ich danke dir. Es funktioniert.
Ich muss ganz erlich sagen ich habs total verpeilt das es hier nen Extra Delphi Code Button gibt.

Kommt nicht mehr vor.

Aber vielen Dank für deine Hilfe in dieser späten Stunde.^^