【结贴】如何通过界面上的点击事件控制左边栏位置

chenliang82

我想点击主界面的信息公告“更多”，进入更多浏览窗口，同时需要左边的功能栏进入相应的功能位置，如图所示，请问如何通过代码或设置实现？谢谢！

chenliang82

这是左边栏的位置

lixy

业务模型\系统空间\简洁风格\界面库\窗体库\标准风格主窗体

随便加个按钮，写这样的代码

procedure TSTANDARDSTYLEMAINFORM.BitBtn100Click(Sender: TObject);
var
   i,j:integer;
begin
  for i:=0 to  tbFuncTree.Count-1 do
  begin
         if    tbFuncTree.Items.Caption= '客户关系' then
         begin
               tbFuncTree.Index:=i;
                for j:=0 to  FFuncNavBar.Groups.Count-1 do
                begin
                   if FFuncNavBar.Groups[j].Caption='产品管理'then
                      FFuncNavBar.Groups[j].Expanded := True;
                end;
         end;
  end;


end;

yancm

更多按钮所连接的功能是在这里定义的

业务模型\协同系统\公共资源\协同常量库

static function TRTLConsts.DefaultDesktopPanelDesc: TDesktopPanelDescArray;
const
  cTaskFuncURL = 'Biz:\COLLABORATION\MyTaskFunc.Func';
  cPlanFuncURL = 'Biz:\COLLABORATION\PlanCenterFunc.Func';
  cCustomerFuncURL = 'Biz:\OPERATION\CRMSPACE\CustomerMngFunc.Func';
  cNeedProcessDocURL = 'Biz:\COLLABORATION\TaskCenterInfo.Info\NeedProcessNav.FormDoc';
  cPlanDocURL = 'Biz:\COLLABORATION\PlanCenterInfo.Info\PlanNav.FormDoc';
  cPostDocURL = 'Biz:\COLLABORATION\TaskCenterInfo.Info\PostNav.FormDoc';
  cCustomerDocURL = 'Biz:\OPERATION\CRMSPACE\CustomerInfo.Info\CustomerNav.FormDoc';
begin
  Result := [CreateDesktopPanel('待办任务', cNeedProcessDocURL, cTaskFuncURL, SysUtils.Format('-f%s -vvmTaskGrid -d待办', [TRTLConsts.NeedProcessTaskTypeStr])),
             CreateDesktopPanel('当前计划', cPlanDocURL, cPlanFuncURL, '-p'),
             CreateDesktopPanel('提交任务', cPostDocURL, cTaskFuncURL, SysUtils.Format('-vvmTaskGrid -f%s -d交办', [TRTLConsts.PostTaskTypeStr])),
             CreateDesktopPanel('我的客户', cCustomerDocURL, cCustomerFuncURL, '')
             ];
end;

CreateDesktopPanel(const Caption, DocURL, MoreFuncURL, MoreFuncParam: string): TDesktopPanelDesc;//第三个参数定义了更多按钮调用的功能url。

yancm

至于点击更多后展开功能树，可以在打开信息公告浏览功能时，通过发业务消息给主窗体来实现。

chenliang82

楼上的业务消息如何发送？？？

chenliang82

3楼的意思是，需要点击那个按钮才能实现吗？

chenliang82

没有实现！

lixy

3楼的意思是你要找合适的地方执行那些代码。我为了测试我的代码，随便加了个按钮。

chenliang82

请问可以解决次问题吗？