TTreeNode um eine weitere Variable erweitern

[Flocke]

Aus dem Kopf ...

Delphi-Quellcode:

type
  TMeinTreeNode = class(TTreeNode)
  // was immer du ändern willst
  end;

dann im OI für das TTreeView-Control die Ereignisse ansehen und auf OnCreateNodeClass doppelt klicken und dann ergänzen:

Delphi-Quellcode:

procedure TForm.TreeView1CreateNodeClass(Sender: TCustomTreeView;
  var NodeClass: TTreeNodeClass);
begin
  NodeClass = TMeinTreeNode;
end;