【搞定】如何隐蒇

dupit

屏蔽掉了
procedure TSTANDARDSTYLEMAINFORM.InitBarPosition;  
中的代码(如下) :
  DockStub.InitControlConfigs(['RelevancyNavBar'], ['关联信息'], [ImgRelation.Picture], 180, 100, TDockKind.dkAutoHide,
    TDockSide.alLeft, False,
    [TDockWindowButton.wbAutoHide, TDockWindowButton.wbDock, TDockWindowButton.wbHide],
    [TDockKind.dkAutoHide, TDockKind.dkDocking]);

  //Add by wdx 20060724
  DockStub.InitControlConfigs(['DocRelevancyNavBar'], ['文档关联'], [ImgRelation.Picture], 180, 100, TDockKind.dkAutoHide,
    TDockSide.alLeft, False,
    [TDockWindowButton.wbAutoHide, TDockWindowButton.wbDock, TDockWindowButton.wbHide],
    [TDockKind.dkAutoHide, TDockKind.dkDocking]);

登陆"流程监控"功能时出现如图的任务对话框,如何解决?

atiger

这还需要屏蔽一些代码
版本有差异有些区别。
26XX，procedure TSTANDARDSTYLEMAINFORM.ShowRelevancyNavBar;    把这个过程begin和end中间的代码屏蔽了就可以了。
DockStub.AddClient('RelevancyNavBar', FRelevancyNavBar, nil);  这个就是加载任务的那个页

atiger

？？

dupit

解决了 ,修改如下
procedure TSTANDARDSTYLEMAINFORM.ShowContainer(AContainer: TFuncContainer);
//      ReloadRelevancyNavBar;     //edit by amin_mao
//      ReloadDocRelevancyNavBar;   //add by wdx 20060724

atiger

ok
,结贴