【结】[问题] 文档关联的小问题？？***

huangyue

我想要在系统加载的时候主窗体右侧的文档关联隐藏掉?当操作对应的功能的时候就显示?怎么弄?

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=27499

huangyue

楼上的帖子是在加载进去 工作台 也显示的,我想在最开始进去的时候是不显示的,只有点击某一个功能的时候才会显示出来.
当我写成以下代码:
if SysUtils.UpperCase(AContainer.FuncURL) = SysUtils.UpperCase('Biz:\OABGZDHXT\QJJ.FUNC') then
   ShowRelevancyNavBar
   else
   HideDocRelevancyNavBar;

当刚刚进入平台的时候是隐藏了.但是当我打开  'Biz:\OABGZDHXT\QJJ.FUNC' 功能的时候却不会显示出来.

PS:右边的"文档关联"是自己做的,不是系统自带的那个

lixy

if SysUtils.UpperCase(AContainer.FuncURL) = SysUtils.UpperCase('Biz:\OABGZDHXT\QJJ.FUNC') then
代码执行过去了吗？

atiger

楼主，你跟踪一下代码看看是否ShowRelevancyNavBar是否执行到。
ShowRelevancyNavBar这个方法中的判断条件是否成立。
procedure TSTANDARDSTYLEMAINFORM.ShowRelevancyNavBar;
begin
  if not FRelevancyNavBarShowing and actRelevancy.Checked and IsShowRelevancyNavBar then//看这个条件。
  begin
    FRelevancyNavBarShowing := True;
    DockStub.BeginUpdate;
    try
      DockStub.AddClient('RelevancyNavBar', FRelevancyNavBar, nil);
      DockStub.ShowClient(FRelevancyNavBar);
    finally
      DockStub.EndUpdate;
    end;
  end;
end;

huangyue

最初由 lixy 发布
[B]if SysUtils.UpperCase(AContainer.FuncURL) = SysUtils.UpperCase('Biz:\OABGZDHXT\QJJ.FUNC') then
代码执行过去了吗？ [/B]

执行过去了的

huangyue

最初由 atiger 发布
[B]楼主，你跟踪一下代码看看是否ShowRelevancyNavBar是否执行到。
ShowRelevancyNavBar这个方法中的判断条件是否成立。
procedure TSTANDARDSTYLEMAINFORM.ShowRelevancyNa..

以下省略...... [/B]

1. ShowRelevancyNavBar是否执行到。执行了
2. ShowRelevancyNavBar这个方法中的判断条件是否成立.具体是指什么?请详细说说

atiger

执行这个后，然后到哪里了?
是 FRelevancyNavBarShowing := True;
还是结束这个过程了？

zfang

看5楼

huangyue

回复8楼:
直接结束了这个过程,没有执行 FRelevancyNavBarShowing := True;