treeview节点的子节点的展开及收起

treeview1.selected.Expanded; //判断节点的子节点是否展开True展开，否则闭拢
treeview1.selected.Expand(True);//子节点展开
treeview1.selected.collapse(True)://子节点闭拢  

树节点全部展开：
procedure TForm1.Button1Click(Sender: TObject);
var node:TTreeNode;
begin
if treeview1.Items[0]<>nil then
begin
  node:=treeview1.Items[0];
  node.Expand(true);
  while node.getNextSibling<>nil do
  begin
    node:=node.getNextSibling;
    node.Expand(true);
  end;
end;
end;

树节点全部收缩：
procedure TForm1.Button2Click(Sender: TObject);
var node:TTreeNode;
begin
if treeview1.Items[0]<>nil then
begin
  node:=treeview1.Items[0];
  node.Collapse(true);
  while node.getNextSibling<>nil do
  begin
    node:=node.getNextSibling;
    node.Collapse(true);
  end;
end;
end;