VirtualStringTree 定位 聚焦

设置某个节点为选择状态：

var
  v_child:PVirtualNode;
begin
   vrtlstrngtr1.Selected[v_child]:=True;  //设置v_child为选中状态。
   vrtlstrngtr1.SetFocus;                 //设置选中节点聚焦
   vrtlstrngtr1.Expanded[v_child]:=True ; //设置v_child子节点展开。
   vrtlstrngtr1.TopNode:= v_child;        //节点定位，让v_child节点显示在树的可见范围的最顶端。
end;