［搞定］在ie启动时，如何将工作台的名称改成“审核”**

dragonsoft

以及如何去掉“日程”和 客户关系，具体如图所示
急

jiahaiminghr

1、修改工作台功能的主窗体caption属性

2、去掉日程：修改协同常量库的runfuncs函数，注释掉日程功能的rul

3、去掉客户：使用协同系统\配置\业务系统管理功能删除掉客户关系的定义

dragonsoft

caption是灰色的，不能修改。。这是怎么回事？

atiger

jiahaiminghr 让你修改的是 功能 的 主窗体 的 属性，可以通过 选中 主窗体，右键菜单 属性，在这个对话框中修改显示名称就可以了

dragonsoft

2、去掉日程：修改协同常量库的runfuncs函数，注释掉日程功能的rul
＝＝我注释掉了常量。但界面上的“日程”功能是标题没了，那个图标还是在，而且点击后会出现“URL转换为功能失败”。

dragonsoft

不能修改上面的回复，只好再帖一个完整的图。

jiahaiminghr

runfuncs函数返回值中，结尾处的 ； 去掉

dragonsoft

3x  runfunc可以了

还有 6楼的“我的客户”和“。。”怎么去掉呢？

jiahaiminghr

我的客户：需要修改协同常量库
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;

jiahaiminghr

。。关联部分：
procedure TSTANDARDSTYLEMAINFORM.AddBars;
begin
{  DockStub.AddClient('FuncNavBar', FFuncNavBar, nil);
     [FFuncNavBar], TDockKind.dkAutoHide, TDockSide.alLeft);
     [OrgTreeView], TDockKind.dkAutoHide, TDockSide.alLeft);}
  //DockStub.AddClient('RelevancyNavBar', FRelevancyNavBar, nil);
  //DockStub.AddClient('DocRelevancyNavBar', FDocRelevancyNavBar, nil);
  // TODO: 修改记录目前不显示 DockStub.AddClient('EditLogNavBar', FEditLogNavBar, nil);
end;