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

cdz0451

这个什么意思 是不是 呆 // lxy 的 行 注视掉？怎么还有 注释BEGIN的？ 那不会报错？

lixy

呆 // lxy 的 行 注视掉
对比下你现在的代码，有一个是改成-1

cdz0451

那BEGIN 也注视掉？

lixy

你按照上面修改就是了。我又没注释begin

cdz0451

效果是出来了，但是不对啊。
我这左侧又5个选项，里面都有功能，现在 所有的功能都跑到协同平台里了。 其他4个选项点看都为空了。这是怎么回事。

还有就是要把协同平台里的更多文件夹去掉。

如图：

lixy

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

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

cdz0451

lBaseTreeView.ShowButtons := true; //lxy
  lBaseTreeView.ShowLines := true;   //lxy

这2句我都注释了？ 还怎么改？

lixy

楼主，上面40楼的代码修改完毕就这样。我只是在我修改的地方加了个标识。有的是注释掉，有的是修改了。能不能对比下原始代码呢？

cdz0451

代码我对照了，不然会出现效果么？ 你急什么，我比你还着急呢 现在是解决问题
你一共改了 4处
Result := inherited CreateTreeView(AGroup, '-1'); //AFromGUID

// for I := 0 to lNodes.Count - 1 do      //lxy
  lBaseTreeView.ShowButtons := true; //lxy
  lBaseTreeView.ShowLines := true;   //lxy

如果只修改   lBaseTreeView.ShowButtons := true; //lxy
  lBaseTreeView.ShowLines := true;   //lxy

不改 Result := inherited CreateTreeView(AGroup, '-1'); //AFromGUID 就出不来 树的效果

如果 不注释  for I := 0 to lNodes.Count - 1 do      //lxy
每个标签也 都会出现所有的功能

你以为我没再试？ 就在这等着呢？

lixy

不改 Result := inherited CreateTreeView(AGroup, '-1'); //AFromGUID 就出不来 树的效果
-----------------------
说的不对。 树上有所有功能是因为这句，他会把所有功能都放到一个父节点里面。

其他要实现的效果用功能树配置工具配置吧。其他说的都对了。