首页  编辑  

Treeview自动展开显示所有节点

Tags: /超级猛料/VCL/TreeView/   Date Created:

var
 lnNode: TTreeNode;
begin
 lnNode := TreeView1.Items.GetFirstNode;
 while not (lnNode = nil) do begin
   lnNode.Expand(False);
   lnNode := lnNode.GetNextSibling;
 end;
end;