procedure TForm.VDTaddClick(Sender: TObject);
var
Data: PMyRec;
Node: PVirtualNode;
begin
with VDT do
case (Sender as TButton).Tag of
0:
begin // add to root
Node := VDT.AddChild(nil);
Data := VDT.GetNodeData(Node);
Data^.Caption := 'Root ' + IntToStr(RootNodeCount);
end;
1: if Assigned(FocusedNode) then // add as child
begin
ChildCount[FocusedNode] := ChildCount[FocusedNode] + 1;
Expanded[FocusedNode] := True;
InvalidateToBottom(FocusedNode);
Node := VDT.AddChild(nil);
Data := VDT.GetNodeData(Node);
Data^.Caption := 'Child ' + IntToStr(RootNodeCount);
// Data^.Caption := 'Child ' + IntToStr(Node.Index);
end;
end;
end;