virtual treeview: node.parent ist niemals nil

[s.h.a.r.k]

@mirage228: du hast recht

Folgender Code schreibt the p-p-p-p-arent in die Titelleiste. Ich habe die neuste Version installiert.

Delphi-Quellcode:

var
  vn : PVirtualNode;
  pn : PVirtualNode;
begin
  VirtualStringTree1.RootNodeCount := 10;

  vn := VirtualStringTree1.GetFirst();
  pn := vn.Parent;

  if (not Assigned(pn)) then Caption := 'Nüx'
  else if (pn = VirtualStringTree1.RootNode) then Caption := 'the p-p-p-p-arent'
  else Caption := 'strange';
end;