treeview1.selected.Expand(True);//子节点展开 treeview1.selected.collapse(True)://子节点闭拢 树节点全部展开： procedureTForm1.Button1Click(Sender:TObject); varnode:TTreeNode;begin iftreeview1.Items[0]
