Hello,
just try to follow the example from Lischke's book: "Treeview tutorial"
Determine the parent
Every node (PVirtualNode) has the property parent. This property points to the parent of
the node. The parent property of a root-node will point to the tree. To differentiate a
root-node from a normal node you can use the following:
var
Node: PVirtualNode;
begin
if not Assigned(vst.FocusedNode) then
exit;
Node:=vst.FocusedNode;
while vst.GetNodeLevel(Node)>0 do
Node:=Node.Parent;
end;
Coming from a bigger project, I've broken it down to a small project:
One VirtualStringTree, one button and this code:
procedure TForm1.Button1Click(Sender: TObject);
var
node: PVirtualNode;
begin
node:= VirtualStringTree1.AddChild(nil);
node:= VirtualStringTree1.AddChild(node);
node:=node.
end;
Now the question:
just entering the last "." waiting for the List just failure occurs with "illegal qualifier".
What do I do wrong?