VirtualString参考.docVIP

Virtual Treeview是一个可以完全代替Delphi自带的Treeview和Listview的免费完全源码控件，但使用复杂。在看完几个自带DEMO后的一点心得。 自定义结点结构 PTagCustomListItem = ^TTagCustomListItem ; TTagCustomListItem = record Name:string; Id:Integer; end; ?? ? 初始化 VST.NodeDataSize := SizeOf(TTagCustomListItem); VST.RootNodeCount := 2; ? 遍历根节点 var PVN:PVirtualNode; _pNodeData:PTagCustomListItem; begin PVN := VST.GetFirstChild(nil); while Assigned(PVN) do begin _pNodeData := VST.GetNodeData(PVN); if Assigned(_pNodeData) then ShowMessage(_pNodeData.Name); PVN := VST.GetNextSibling(PVN); end; end; ? ? 遍