Virtual Treeview, rootnodecount setzen in Designtime

[generic]

Zitat von hermannhass:

Delphi-Quellcode:

procedure tmytree.DoInitNode(Parent, Node: PVirtualNode; var InitStates: TVirtualNodeInitStates);
var
 ptd  : Pmydata;
begin
 inherited; // <------------------------ sollte helfen, bitte auch bei der anderen überschriebenen funktion nicht vergessen
 ptd:=GetNodeData(Node);
 ptd.caption:='No:'+inttostr(node.Index);    /// Hier knallt es !!!!!!!!!!
end;