【搞定】协同界面上的"关联信息"没法去除？**

dragonsoft

按照这边的做法可以将 刚进入协同时工作台旁边的去除
http://bbs.justep.com/forum.php?mod=viewthread&tid=15972

但,当打开一个任意一个功能后,"关联信息"的条就会冒出来了

怎么样使它一直都不出来?

dragonsoft

按照这边的做法可以将 刚进入协同时工作台旁边的去除
http://bbs.justep.com/forum.php?mod=viewthread&tid=15972

但,当打开一个任意一个功能后,"关联信息"的条就会冒出来了

怎么样使它一直都不出来?

lisb

你再把"业务关联管理"功能中定义的关联关系全部都删除了试试。

dragonsoft

见附件

dragonsoft

上面的图字没显示全,
是: 关联组页面的记录也要全部删除吗?

lisb

关联组，关联关系定义全部删掉。

alang

请按照如下修改：
procedure TSTANDARDSTYLEMAINFORM.ReloadRelevancyNavBar;
var
  lRelevancyViewNavBar: TRelevancyViewNavBar;
  lRefreshRelevanciesMessage: TRefreshRelevanciesMessage;
  lReloadRelevanciesMessage: TReloadRelevanciesMessage;
begin
  HideRelevancyNavBar;
  Exit;  
  if TRelevancyManager.IsShowRelevancyNavBar(Context, CurrentFunc.BizClassURL.BizURL.URL) then
  begin


procedure TSTANDARDSTYLEMAINFORM.AddBars;
begin
{  DockStub.AddClient('FuncNavBar', FFuncNavBar, nil);
     [FFuncNavBar], TDockKind.dkAutoHide, TDockSide.alLeft);
     [OrgTreeView], TDockKind.dkAutoHide, TDockSide.alLeft);}
//  DockStub.AddClient('RelevancyNavBar', FRelevancyNavBar, nil);

procedure TSTANDARDSTYLEMAINFORM.InitBarPosition;
begin
  {DockStub.InitControlConfigs(['FuncNavBar'], ['业务功能'], [ImgFuncTree.Picture],
    180, 100, TDockKind.dkAutoHide,
    TDockSide.alRight, False,
    [TDockWindowButton.wbAutoHide, TDockWindowButton.wbDock, TDockWindowButton.wbHide],
    [TDockKind.dkAutoHide, TDockKind.dkDocking]);}
  {DockStub.InitControlConfigs(['OrgTreeView'], 180, 100, TDockKind.dkAutoHide,
    TDockSide.alLeft, False,
    [TDockWindowButton.wbAutoHide, TDockWindowButton.wbDock, TDockWindowButton.wbHide],
    [TDockKind.dkAutoHide, TDockKind.dkDocking]);}
{  DockStub.InitControlConfigs(['RelevancyNavBar'], ['关联信息'], [nil], 180, 100, TDockKind.dkAutoHide,
    TDockSide.alRight, False,
    [TDockWindowButton.wbAutoHide, TDockWindowButton.wbDock, TDockWindowButton.wbHide],
    [TDockKind.dkAutoHide, TDockKind.dkDocking]);
}

dragonsoft

OK 解决了
谢谢