Vererbung geht aber mit Records halt nicht. Und da der VirtualTreeView nun mal damit arbeitest, wird es so nicht gehen.
Wie kommst du darauf? Ich arbeite da mit Klassen. In den Datenpointer kommt ein Pointer auf die Klassenreferenz und damit hat sich das.
Delphi-Quellcode:
var
CurrentNodeData: PMyClass;
begin
CurrentNodeData := PMyClass(Sender.GetNodeData(Node));
Oder:
Delphi-Quellcode:
var
CurrentNodeData: TMyClass;
begin
CurrentNodeData := TMyClass(Sender.GetNodeData(Node)^);
So ca. mache ich das immer.