如何默认展开业务功能树的节点？**

浩繁 · 发表于 2007-5-29 11:30:54

请问，如何默认展开业务功能树的节点?
最好只展开第1、2层的节点，如图所示。

浩繁 · 发表于 2007-5-29 15:00:20

帮帮忙了

文世弘 · 发表于 2007-5-30 10:40:01

现在不能直接调用，不过，这里说一下思路：

主界面中的这个对象是FFuncNavBar，而里面的表现具体节点的是TTreeView
主界面中
FFuncNavBar := TOperatorFuncNavBar.Create
这是创建的代码，TOperatorFuncNavBa对象是在“业务模型\系统空间\用户界面基础\库\公共组件库”（注意：V2800以后的版本，采用的是“业务模型\系统空间\用户界面基础\界面库\组件库”）

TOperatorFuncNavBa的前代类中TBaseNavBar有一个私有方法function GetTreeView(ABarNode: TComponent): TBaseTreeView，通过他可以得到当前表现的TreeView，TBaseTreeView继承自Delphi的TTreeView，所以楼主可以参考TTreeView的帮助实现相关逻辑

楼主需要做的就是把TBaseNavBar的方法GetTreeView放到public，以便能调到，参数ABarNode，可以传递 FFuncNavBar.ActiveGroup

浩繁 · 发表于 2007-5-30 14:02:11

“存在类的循环继承”都动不了了，直接编译都不行，是什么原因那。

浩繁 · 发表于 2007-5-30 14:02:53

我说的是标准风格主界面。

文世弘 · 发表于 2007-5-30 14:21:04

退出Stuido，签出相关单元，重新编译一次看看

浩繁 · 发表于 2007-5-30 15:33:13

Tree := FFuncNavBar.GetTreeView(FFuncNavBar.ActiveGroup); 获取那棵树也没办法了。
如 Tree.FullExpand();
或 Tree.Items[2].Expand(False);
执行是通过的，但是就是没有展开，好象必须要点到节点上才加载数据（子节点）。直接用代码Expand好象没用。

浩繁 · 发表于 2007-5-31 09:01:10

怎么,是不是和我说的一样啊?

文世弘 · 发表于 2007-5-31 10:32:39

TBaseNavBar.CreateTreeView

在这个过程的最后面加了

lBaseTreeView.FullExpand;

结果是，点开组的时候，所有节点展开了。

楼主是否是调用时机有问题？

atiger · 发表于 2007-6-7 12:00:14

		自动登录	找回密码
密码			立即注册