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

Question

delphi中如何让 treeview 打开时默认自动展开且只展开到第三级节点，比如有6节，我只想自动展开到第三级，三级以下都收起来程序本身用的是dxdbtreeview 我想方法应该是一样的

Answer 1

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

Answer 2

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

Answer 3

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