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

[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;