【结贴】3088版本窗体中如何取消右侧的文档关联？**

qiezi

如题。在论坛上搜索的代码改了一下，不行。应该怎么改？

lixy

？怎么改的，详细写一下

qiezi

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); //liuhx 屏蔽
  // TODO: 修改记录目前不显示 DockStub.AddClient('EditLogNavBar', FEditLogNavBar, nil);
end;

qiezi

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

lixy

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;
我这样改的，

qiezi

计划中心的右侧文档关联怎么去掉？

lixy

和主界面的是同一个

qiezi

计划中心的文档关联还在。

lixy

procedure TSTANDARDSTYLEMAINFORM.ReloadDocRelevancyNavBar;
var
  I: Integer;
  lRefreshDocRelevanciesMessage: TRefreshDocRelevanciesMessage;
begin
  HideDocRelevancyNavBar;
  Exit;  //添加一句

qiezi

好了，谢谢！结贴！