＋设为首页 ＋添加到收藏夹
如treeview有三级,我只想展开两级部分，而不是所有的子项。如某公司为根节，科室为子项，科室有员工作为子项，当我打开界面，只展开到科室项，双击科室才展开员工项如何办到。
for i:=0 to TreeView1.Items.Count-1 do
begin
if TreeView.Items[i].Level=1 then
TreeView.Items[i].Expand(false);
end;
展开语句在treeclick中写.
treecreate中写treeview1.click(nil);
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则展开下面所有节点。
