【搞定】如何把左侧功能显示换成树型列表**

cdz0451

我有点糊涂了。。  一步一步来吧。 如果要实现 每个标签页里都有功能。 而且是树的形式。
那么 组件库里 要改那几处，然后 再说 怎么改功能树配置

lixy

更多怎么去掉，看看功能树配置，删除掉更多。
如果你想每一个标签页都有一个树。
那就[B]只改[/B] ：
lBaseTreeView.ShowButtons := true; //lxy
  lBaseTreeView.ShowLines := true;   //lxy
把一个标签页的所有功能全部配置到[B]一个组[/B]里面。

用功能树配置工具和业务系统管理配置。看下对应版本的用户手册。

cdz0451

首先，更多 我早就去掉了。。。 但是不知道为什么还有
然后，如果只改 lBaseTreeView.ShowButtons := true; //lxy
                             lBaseTreeView.ShowLines := true;   //lxy
效果如 17楼。。。 你分析下原因。 我去 从新配置下 业务功能树

lixy

楼主这个需求只能适应这个功能树的特性。
比如更多那个是可以出现文件夹的。你就可以模仿那个配置。
新版本的功能树本来就和26系列功能树的样子不一样。所以能不会特别完美，只能造假象。

cdz0451

看看吧。 这个我树的配置。

我把所有功能都放在 办公业务管理  这个组里了。
效果就是17楼的， 你看看 是不是 我那里配置的不对。

lixy

Result := inherited CreateTreeView(AGroup, '-1'); //AFromGUID
这句造成了"更多"的出现，如果不改成-1，更多不会出现。
如果是-1，可以修改下面的代码。

procedure TUserBizTree.LoadCustomBizTree;
begin
  TCustomBizTreeDBStorage.Load(FCustomBizTree);
//AddOtherNode;        //lxy
end;

lixy

55楼，不能引用确定的功能，应该引用路径。

cdz0451

引用路径？ 这个树不是这么配么？是不是 我的树配置，就是引用功能这不对了？

lixy

2   我就修改了
  lBaseTreeView.ShowButtons := true;
  lBaseTreeView.ShowLines := true;
其他都是初始化代码哦，注意。

cdz0451

看看 这样 设置 对不对