全部展开:   Treeview1.Items[0].Expand(true);
全部收缩:   Treeview1.Items[0].Collapse(true);
只有最方便的方法

解决方案 »

  1.   

    全展开:aTreeView.FullExpand
    全收缩:aTreeView.FullCollapse
      

  2.   

    谢谢各位,我记得好像还有个方法:
    作个循环,for i:=0 to treeview1.Items.Count-1 do
    .....getnextnode....
    有哪位朋友知道这个方法,圆我的心愿???
      

  3.   

    var
      mynode:TTreeNode;
    begin
      mynode:=treeview1.Items.GetFirstNode;
      while mynode<>nil do
      begin
        mynode.Expand(true);
        mynode:=mynode.getNextSibling;
      end;
    end;可能是这个吧,上次看了贴子的:]
      

  4.   

    拜托,全部展开和收缩难道还用要循环?
    Delphi有现成的方法嘛,
    全展开:aTreeView.FullExpand
    全收缩:aTreeView.FullCollapse