treeview1.selected.Expand(True);//子节点展开
treeview1.selected.collapse(True)://子节点闭拢
树节点全部展开:
procedureTForm1.Button1Click(Sender:TObject);
varnode:TTreeNode;begin
iftreeview1.Items[0]
node.Expand(true);
whilenode.getNextSibling
node.Expand(true);end;end;end;
树节点全部收缩:
我也希望有这样的效果。不过仔细想想好像没必要。