Hallo,
ich habe ein sehr seltsames Problem:
Jeder Knoten in meinem VirtualStringTree hat einen Parent Knoten, also auch diejenigen, die ein Nodelevel 0 haben.
Hier ein Beispiel:
Neues Project --> VirtualStringTree und einen Button aufs Formular.
Im Onclick-Ereignis des Button folgenden Code eingefügt:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var node:PVirtualNode;
begin
node := vst.AddChild(nil);
Caption := 'Level: ' + inttostr(vst.GetNodeLevel(node));
if assigned(node.Parent) then
Caption := Caption + '; Parent assigned'
else
Caption := Caption + '; Parent NOT assigned';
end;
Die Caption des Formulars ist nach einem Klick auf den Button: 'Level: 0; Parent assigned'
Wie kann das sein? Ist meine VirtualTreeview Installation defekt? Sonst hat das eigentlich immer funktioniert.