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