求助：怎么使 treeview 的叶子都在展开？谢谢！
请教：
我用 treeview 的编辑器建了几个叶子节点
我希望程序运行的时候，叶子节点是展开的？
procedure TMainForm.FormActivate(Sender: TObject);
begin
//********************使 TreeView1 展开************************
TreeView1.AutoExpand:=true;
//********************使 TreeView1 展开************************
end;
可是没有效果啊，
应该怎么设置？
谢谢！
[解决办法]
1
for i := 0 to treeview1.Items.Count-1 do
begin
TreeView1.Items[i].Expanded := true;
end;
2
Node.Level = 1
