Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by shmia,
14. Apr 2004
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;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by shmia,
14. Apr 2004
1.) Das Thread-Objekt (genauer der Zeiger darauf) in TTreeNode.Data speichern,
direkt nachdem der Thread erzeugt wurde.
2.) im Event OnDeletion des TreeViews:
procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
begin
if Assigned(Node.Data) then
begin
TThread(Node.Data).Terminate;
TThread(Node.Data).Free;