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