【结帖】功能树展示问题**

欧诺万德

下图的功能树能不能默认让他全部展开，需要设置哪几个数据，我设置了他的VIEW属性，好像除了你们的这种方式，很多展示方式功能树显示不出来

jiahaiming

楼主，在每个分组展开时，系统会为其创建一个treeview，并加载制定的节点。
所以，为了系统提高效率，建议不要自动展开。

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=18909
参考3楼的代码。

欧诺万德

主要是用户觉得麻烦，要点好多次才能出现功能

zfang

全展开的话，效率会比较低，进入主截面会慢。

欧诺万德

好像只能展开一个，不能所有组全部展开

zfang

请楼主修改一下这里看看

procedure TSTANDARDSTYLEMAINFORM.SetBizGroup(AGroupIndex: Integer);
var
  lNode: TUserBizNode;
begin
  lNode := TUserBizNode(FBizSystemList.Objects[AGroupIndex]);
  FFuncNavBar.BizGroup := lNode.ID;
  FOldActiveGroup := nil;
  lbBizSystemID.Caption := FFuncNavBar.BizGroup;
  lbBizSystem.Caption := lNode.DisplayName;
  //默认第一个业务项展开他的子节点
  [B]if FFuncNavBar.Groups.Count > 0 then[/B]      
     [B]FFuncNavBar.Groups[0].Expanded := True; [/B]  
end;

欧诺万德

不是第一个业务项，而是所有的业务项

jiahaiming

全部展开会导致启动速度变慢，估计用户更加无法接受了。

如果功能树配置成2层，直接展开功能组（如：事件管理）后，给用户显示出功能，供其点击。应该不会很麻烦的。

欧诺万德

先结了吧，主要客户第一期是这种形式，客户习惯了