TreeList, pointer freigeben

[shmia]

Im Event OnDeletion:

Delphi-Quellcode:

procedure TForm1.TreeView1Deletion(Sender: TObject; Node: TTreeNode);
begin
   if Node.Data <> nil then
      Dispose(Node.Data);
end;