delphi中如何让treeview打开时默认自动展开到第三级(共6级)

delphi中如何让 treeview 打开时默认自动展开 且只展开到第三级节点，比如有6节，我只想自动展开到第三级，三级以下都收起来

程序本身用的是dxdbtreeview 我想方法应该是一样的

4 个解决方案

#1

treeview好像没有现成的方法实现此功能
不过可以找出要展开那一级最未的TreeNode,然后TreeNode.Selected:=True;

#2

还有没有其它答案啊？

#3

展开时，遍历树
if TreeNode.Level < 3  then
   TreeNode.Expand(true);
else 
   TreeNode.Collapse(True);

#4

同意三楼的，在树加载完后。遍历节点，小于3的都expand