TTreeNode um eine weitere Variable erweitern

[Nogge]

Hallo Community,
Ich möchte gern die class TTreeNode so um eine Variable erweitern, dass ich den erweiterten Typ immer noch der Standard-TreeView hinzufügen kann. Bisherige Versuche haben immer nur einen "Inkompatibelitätsfehler" verursacht ;_;

Delphi-Quellcode:

type
  TTreeNode = class(ComCtrls.TTreeNode)
  private
    { Private declarations }
    ShouldExpand : Boolean;
  end;

[barf00s]

nicht umsonst hat TTreeNode ein .Data Feld

[Nogge]

Diese Variable habe ich bereits in Benutzung (Hätte ich vllt schon vorher sagen sollen^^)

[barf00s]

dann kann man dem TReeView vllt verkliggern aus welcher klasse seine Nodes bestehen .SetNodeClass oder so - keine ahnung

ich bin VirtualTreeView nutzer

[Nogge]

Wieso schreibste ne "Antwort", wenn du keine Ahnung hast?^^

[Flocke]

Du musst TTreeView.OnCreateNodeClass setzen und darin deine TTreeNodeSubclass als Klasse zurückgeben.

Noch was:

Delphi-Quellcode:

TTreeNode = class(ComCtrls.TTreeNode)
  private
    { Private declarations }
    ShouldExpand : Boolean;
  end;

So solltest du es nicht machen, denke dir einen neuen Namen aus.

[barf00s]

weil unter umständen vllt DOCH was dabei iss - oder dich zum denken anregt

[Nogge]

Könntest du mir deine Antwort als Source Code liefern, Flocke? Ich kann viel besser Code als Worte verstehen^^

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

[Nogge]

(Habe gerade gemerkt, dass ich für dieses Thema schon mal einen Thread erstellt hatte o_O)
Trotzdem viele Dank, Flocke!
[edit]
Ich muss nur noch zusätzlich vor jedem Ausgabewert einer Function dies schreiben:
Root:=TTreeNodeEx(TreeView1.Items.Add(nil,'Root1')); [/edit]