Treeview自动展开显示所有节点

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