Treeview自动展开显示所有节点

Tags: /超级猛料/VCL/TreeView/ Date Created: Wed Aug 15 2001 04:00:37 GMT+0000 (Coordinated Universal Time)

var

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