【搞定】2809去掉右边的“关联信息”和“文档信息”

huitong

请问主界面左边的“客户关系”和最右边的“关联信息”、“文档信息”如何隐藏掉？
现在在客户这边，比较急请给个最快的最方便的解决方法，谢谢！

平台版本3.0.6.2809

lixy

左边的可以用“业务系统管理”配置
左面的需要改主界面的代码，搜“关联信息”字样

huitong

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;



以上红色字体部分都已经注释到了，现在的问题是在主界面上隐藏了'关联信息'和'文档关联'，可是随便打开一个功能后'关联信息'就又会显示出来，如果再注释掉以下的代码则'关联信息'几个字就没了，右边就剩下了一个蓝色的小三角了
procedure TSTANDARDSTYLEMAINFORM.InitBarPosition
begin

  {DockStub.InitControlConfigs(['RelevancyNavBar'], ['关联信息'], [nil], 180, 100, TDockKind.dkAutoHide,
    TDockSide.alRight, False,
    [TDockWindowButton.wbAutoHide, TDockWindowButton.wbDock, TDockWindowButton.wbHide],
    [TDockKind.dkAutoHide, TDockKind.dkDocking]);}
  //Add by wdx 20060724
  {DockStub.InitControlConfigs(['DocRelevancyNavBar'], ['文档关联'], [nil], 180, 100, TDockKind.dkAutoHide,
    TDockSide.alRight, False,
    [TDockWindowButton.wbAutoHide, TDockWindowButton.wbDock, TDockWindowButton.wbHide],
    [TDockKind.dkAutoHide, TDockKind.dkDocking]);  }




我的版本是2809的，我在论坛里找到的方法都是以前版本的方法，和2809的版本中代码都不一样，请你们给个2809版本的解决方法

huitong

不用了，自己找到解决方法了，修改方法如下，希望对其他朋友有用（2809去掉右边的“关联信息”和“文档信息”）


function TSTANDARDSTYLEMAINFORM.IsShowRelevancyNavBar: Boolean;
begin
  //Result :=　(FRelevancyNavBar <> nil) and (FRelevancyNavBar.GroupCount <> 0);
  Result := False;
end;

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;

lixy

谢谢楼主给大家共享，结贴

atiger

ok
谢谢楼主共享方法

chen20501157

左边栏的客户关系？

565118680

谢谢，