如何在 Virtual TreeView 中获取可见的根节点?

How to get a visible root node in Virtual TreeView?

我正在使用 Virtual TreeView,我需要在单击按钮时 select 根节点。 TBaseVirtualTree中有一个RootNode 属性,但是根据文档,它不是用来枚举的。此外,该根节点是不可见的,而不是整棵树的实际根节点。

使用如下代码select第一个节点。请注意,有一个单独的函数可以获取第一个 visible 节点 (GetFirstVisible())

procedure TForm1.Button4Click(Sender: TObject);
var
  node: PVirtualNode;
begin
  node := VST.GetFirst();
  VST.Selected[node] := True;
end;