Stimmt auffallend mit dem inherited.
Ich hätte doch mal in den Source schauen sollen ;-)
Eine Kleinigkeit ist mir noch aufgefallen.
Delphi-Quellcode:
procedure tmytree.DoInitNode(Parent, Node: PVirtualNode; var InitStates: TVirtualNodeInitStates);
var
ptd : Pmydata;
begin
ptd:=GetNodeData(Node);
ptd.caption:='No:'+inttostr(node.Index); /// Hier knallt es !!!!!!!!!!
end;
ptd ist ein Zeiger, somit müsstest du eigendlich um an die Daten zu kommen folgendes schreiben:
ptd^.caption:='No:'+inttostr(node.Index);
Unterschied: ^ hinter dem Zeigernamen.