TTreeNode gelöscht - Thread gelöscht...?

[ralfi]

Hallo!

Ich weise einem Thread einen TTreeNode zu, indem ich die Create-Procedur des Threads überschrieben habe. Den Thread muss dann die ImageIndex des TTreeNodes ändern und somit so eine Art Fortschrittsanzeige darstellen. Das funktioniert schon mal ganz richtig.

Jetzt möchte ich es so machen, dass wenn das TTreeNode gelöscht wird, beendet sich auch der Thread, dem diese TTreeNode zugewiesen wurde. Wie mache ich das?

Danke! :-)

[shmia]

1.) Das Thread-Objekt (genauer der Zeiger darauf) in TTreeNode.Data speichern,
direkt nachdem der Thread erzeugt wurde.

2.) im Event OnDeletion des TreeViews:

Delphi-Quellcode:

procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
begin
   if Assigned(Node.Data) then
   begin
      TThread(Node.Data).Terminate;
      TThread(Node.Data).Free;
   end;
end;

[ralfi]

An erster Stelle vielen Dank!

Zitat:

Zitat von shmia

1.) Das Thread-Objekt (genauer der Zeiger darauf) in TTreeNode.Data speichern,
direkt nachdem der Thread erzeugt wurde...

wie mache ich das? :oops:

[shmia]

Delphi-Quellcode:

procedure TForm1.MakeNewThread(const tname:string);
var
   thread : TThread;
   node : TTreeNode;
begin
   thread := TMyThread.Create(True);  // neuen Thread erzeugen
   node := TreeView1.Items.Add(nil, tname);  // neuen Knoten erzeugen
   node.Data := Pointer(thread);     // <-- Zeiger auf Thread-Objekt im TreeNode merken
   thread.Resume;  // Thread losrennen lassen
end;

[romber]

@shmia

Danke sehr! Es hat geklappt!
Eine andere Frage: kann ich dasselbe auch für zwei und mehr Threads machen, ich meine mehrere Threads mit einen TTreeNode verknüpfen und dann wenn Node gelöscht wird, auch alle verknüpfte Threads beendet werden? Wenn ja, wie?

Danke! :P