有没有办法不让TREEVIEW展开和缩放

Question

我一开始让TREEVIEW全部展开后就不让TREEVIEW收缩了（双击父接点也不能展开和收缩），这样能做到吗？

Answer 1

我是不让TREEVIEW收缩。看下标题

Answer 2

procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
begin
  AllowExpansion:=False;
end;

Answer 3

这样的话，我开始的全部展开就没效果了。我需要的是，窗体加载后，TREEVIEW的接点全部展开，然后不能收缩

Answer 4

批评你一下，你就不会转一下弯吗，这么简单的问题还要我再来回答一下：var
  Form1: TForm1;
  bExpansion:boolean;
procedure TForm1.TreeView1Expanding(Sender: TObject; Node: TTreeNode;
  var AllowExpansion: Boolean);
begin
 AllowExpansion:=bExpansion;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  bExpansion:=True;
  TreeView1.FullExpand ;
  bExpansion:=False;
end;

Answer 5

Sorry，自我批评一下，合上是另一个事件：procedure TForm1.TreeView1Collapsing(Sender: TObject; Node: TTreeNode;
  var AllowCollapse: Boolean);
begin
AllowCollapse:=False;
end;这样，你就可以不用判断OnExpanding事件了!