如何只将treeview按要求展开

Question

如treeview有三级,我只想展开两级部分，而不是所有的子项。如某公司为根节，科室为子项，科室有员工作为子项，当我打开界面，只展开到科室项，双击科室才展开员工项如何办到。

Answer 1

for i:=0 to TreeView1.Items.Count-1 do
begin
  if TreeView.Items[i].Level=1 then
    TreeView.Items[i].Expand(false);
end;

Answer 2

展开语句在treeclick中写.
treecreate中写treeview1.click(nil);

Answer 3

for i:=0 to TreeView1.Items.Count-1 do
begin
  if TreeView.Items[i].Level=1 then
    TreeView.Items[i].Expand(false);
end;以上代码写在FormShow中即可，
Expand(false);中
false表示只展开一层子节点
true则展开下面所有节点。