如何在 VirtualStringTree 中添加不可见节点？

Question

目前我有这段代码可以将一些节点添加到 VST

function AddVSTStructure(AVST: TCustomVirtualStringTree; ANode: PVirtualNode; AObject: TDATArecord): PVirtualNode;
var
  Data: PUserData;
begin
  Result := AVST.AddChild(ANode);
  Data := AVST.GetNodeData(Result);
  AVST.ValidateNode(Result, false);
  Data^.FObject := AObject;
end;

//adding node
VDT1.BeginUpdate;
try
  DATArecord.name := 'nodename';
  DATArecord.Visible:= False;
  AddVSTStructure(VDT1, nil, DATArecord);
finally
  VDT1.EndUpdate;
end;

我想在不可见状态下添加节点，我的意思是完全不可见。

我知道我可以在添加节点后使用 VDT1.IsVisible[Node] := boolean; 设置它的可见性但是我想在显示在树中之前将其设置为不可见考虑到我添加的记录设置为 DATArecord.Visible:= False;

所以，如果Datarecord.visible等于true，添加可见状态的节点。如果它是 false，请添加具有不可见状态的节点我该怎么做？

Answer 1

只需在创建节点后立即设置节点的IsVisible 属性：

Result := AVST.AddChild(ANode);
AVST.IsVisible[Result] := AObject.Visible; // <-- add this

用户不会看到添加的节点，因为 AddVSTStructure() 在 (Begin/End)Update 对中被调用，因此添加不会执行任何屏幕更新。

如何在 VirtualStringTree 中添加不可见节点？

How to add non-visible Node in VirtualStringTree?

delphi

virtualtreeview

tvirtualstringtree

delphi-xe8