udvidede data i TTreeNode

Det har jeg også spekuleret på og tror ikke det kan lade sig gøre uden at lave en nedarving af TTreeView også.

I midlertid har en TTreeNode en .Data property af typen pointer hvorpå du kan klistre yderligere oplysninger i form af objekter eller records.

type
  TPersonClass = class
  private
    fNavn : string;
  public
    constructor Create(const aNavn : string);
    properrty Navn : string read fNavn;
  end;

.... Nede i koden hvor du opretter en treenode som top-node:

procedure TForm1.AddAPerson(aPerson : TPersonClass);
begin
  TreeView1.Items.AddObject(nil,aPerson.Navn,aPerson);
end;

Du kunne også tildele den bagefter:
  TreeNode.Data := aPerson;

Når du skal bruge data derfra, typisk i en OnClick hvor noden sendes med som parameter:

  Edit1.Text := TPersonClass(Node.Data).Navn;

På denne måde kan du koble alskens data sammen med en en TreeNode. Bemærk i øvrigt at det samme gælder TListItem (TListView) som også har en .Data.

En TreeView har en OnDelete hvor du kan frigive objekterne igen - alternativt må du gennemløbe TreeView.Items.

jamen det var jo bare det :)

takker