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;
树节点全部收缩:
可以懒加载,搜索bootstrap treeview懒加载。