想請問各位高手:    在delphi中的tree vieww 自動收放是在屬性中的 AUTO EXpand設成 true 但如果把展開的程式寫在action list中如何能達到自動收放    ex:    procedure TForm1.Action1Execute(Sender:Tobject); begin       TreeView1.Items[0].Expand(False);/*展開的語法*/ end;    procedure TForm1.Action2Execute(Sender:Tobject); begin       TreeView1.Items[7].Expand(False);/*展開的語法*/ end;    在切換Action1、2時 ，如何達到Auto Expand呢??    謝謝您的回答    

goodjimmy 你好

  最簡單的方式且最保險的方法,全部合攏後再予以某個節點展開：    procedure TForm1.Action1Execute(Sender:Tobject);
begin
  TreeView1.FullCollapse;  // 全部收攏
  TreeView1.Items[0].Expand(False);/*展開的語法*/
end;    procedure TForm1.Action2Execute(Sender:Tobject);
begin  
  TreeView1.FullCollapse;  // 全部收攏
  TreeView1.Items[7].Expand(False);/*展開的語法*/
end;

_______________________________________ 深藍的魚，祝您好運..........連.連