添加右边关联信息问题续

Set_qing

添加一个关联菜单项，怎么没有显示名啊

zfang

应该是你加载的时候没给他名字
你可以 参考文档关联或者关联信息的加载代码写法。

Set_qing

给了名字了，你看看这样有什么问题，对应的Panel在界面上弄好的
DockStub.InitControlConfigs(['PelNew'], ['我的关联'], [nil], 180, 100, TDockKind.dkAutoHide,
    TDockSide.alRight, False,
    [TDockWindowButton.wbAutoHide, TDockWindowButton.wbDock, TDockWindowButton.wbHide],
    [TDockKind.dkAutoHide, TDockKind.dkDocking]);

zfang

从这里看，没什么问题。
楼主，你就看那个文档关联的加载，按它的名字搜索代码，然后把你自己的这个面板也加上类似的加载代码就行了。

Set_qing

我给Panel 的Caption 赋值后关联菜单名称就能显示出来了，我要怎么样做才能实现在打开某个功能时才显示这个菜单，否则隐藏

zfang

此问题，你的同事已经在很早之前就问过了，你跟他沟通下吧。
http://bbs.justep.com/forum.php?mod=viewthread&tid=28566

Set_qing

我自己写了下面的方法，但是运行功能时报错了，你帮忙看看这样写对吗？
procedure TSTANDARDSTYLEMAINFORM.ShowPnl_GLXX;//显示
begin
  if not FPnlNewShowing and actRelevancy.Checked and isShwoPnl_GLXX then
  begin
    FPnlNewShowing := True;
    DockStub.BeginUpdate;
    try
      DockStub.AddClient('PnlNew', Pnl_GLXX, nil);
      DockStub.ShowClient(Pnl_GLXX);
    finally
      DockStub.EndUpdate;
    end;
  end;
end;

procedure TSTANDARDSTYLEMAINFORM.HidePnl_GLXX;//隐藏
begin
  Exit; // TODO: 一直显示
  DockStub.BeginUpdate;
  try
    DockStub.HideControl(Pnl_GLXX);
    DockStub.RemoveClient(Pnl_GLXX);
  finally
    DockStub.EndUpdate;
  end;
  FPnlNewShowing := False;
end;
function TSTANDARDSTYLEMAINFORM.isShwoPnl_GLXX: Boolean;
begin
  Result := Pnl_GLXX <> nil;
end;

Set_qing

错误如图

zfang

看不出来是什么问题，用studio调试看看吧
或者问问 6楼链接中 你的同事。