求助：怎么使 treeview 的叶子都在展开？谢谢！

Question

请教：
我用 treeview 的编辑器建了几个叶子节点
我希望程序运行的时候，叶子节点是展开的？procedure TMainForm.FormActivate(Sender: TObject);
begin
            
      //********************使  TreeView1 展开************************
      TreeView1.AutoExpand:=true;
      //********************使  TreeView1 展开************************
end;可是没有效果啊，
应该怎么设置？谢谢！

Answer 1

for i := 0 to TreeView1.Items.Count - 1 do
begin
  TreeView1.Items.Item[i].Expand(true);
end;第二个问题 ： Node.Level

Answer 2

设置TreeView1.AutoExpand:=true;
再让TreeView1得到焦点

Answer 3

1
  for i := 0 to treeview1.Items.Count-1 do
  begin
    TreeView1.Items[i].Expanded := true;
  end;2
 Node.Level = 1