【结】我想在主界面上添加一个象“文档关联”一样的侧键**

caoyeziqq

我想在主界面上添加一个象“文档关联”一样的侧键。实现的形式与文档关联类似，可以当点击侧键时也能弹出个面板，当焦点离开始会自动隐藏。

caoyeziqq

我想在主界面上添加一个象“文档关联”类似的侧键，能实现与文档关联侧键类似的效果，当点击时能自动弹出一个面板，当焦点离开时会自动隐藏。
谢谢！

biglazy

我也问了个同样的问题 同关注答复!

alang

看看标准风格主窗体上 文档关联 相关的代码就知道了

caoyeziqq

我已经看过那里的代码
TDocRelevancyNavBar这种东东我没法定义。不清楚在哪定义的。

caoyeziqq

我想相关的语句最主要的应该是如下所示了:
DockStub.AddClient('DocRelevancyNavBar', FDocRelevancyNavBar, nil);

FDocRelevancyNavBar := TDocRelevancyManager.CreateDocRelevancyNavBar(Self, HidePanel);
  FDocRelevancyNavBar.DefaultStyles.Background.BackColor := 15855854;
  FDocRelevancyNavBar.DefaultStyles.Background.BackColor2 := 15855854;

DockStub.InitControlConfigs(['DocRelevancyNavBar'], ['文档关联'], [nil], 180, 100, TDockKind.dkAutoHide,
    TDockSide.alRight, False,
    [TDockWindowButton.wbAutoHide, TDockWindowButton.wbDock, TDockWindowButton.wbHide],
    [TDockKind.dkAutoHide, TDockKind.dkDocking]);
以及:
  procedure ReloadDocRelevancyNavBar;
    procedure HideDocRelevancyNavBar;
    procedure ShowDocRelevancyNavBar;
    procedure DoRelevancyPopuMenuPopup(Sender: TObject);
但是里面的TDocRelevancyNavBar不清楚怎么定义的,所以我觉得不好下手,请您帮忙看一下!
谢谢

caoyeziqq

文档关联库DOCRELEVANCYLIB的是不能浏览,所以TDocRelevancyNavBar不清楚怎么定义的,希望你们给予帮助,我想定义一个如"文档关联"类似的册键,在弹出的面版上,加上一个DataTransparentGrid,

jiahaiminghr

TDocRelevancyNavBar 没有关系
你按照下面的执行一下看看
1.  TSTANDARDSTYLEMAINFORM = class(TForm)  
定义一个变量
    FalangPanel: TPanel;

2. constructor TStandardStyleMainForm.Create(AContext: TContext);
函数中创建这个对象
  FalangPanel := TPanel.Create(Self);
  FalangPanel.Caption := 'alang test!';

3. destructor TStandardStyleMainForm.Destroy;
函数释放这个对象
  FalangPanel.Free;
  FalangPanel := nil;

4. procedure TSTANDARDSTYLEMAINFORM.AddBars;
增加这个对象到docstub
  DockStub.AddClient('alangtest', FalangPanel, nil);

5. procedure TSTANDARDSTYLEMAINFORM.InitBarPosition;
定义这个对象的位置和显示等
  DockStub.InitControlConfigs(['alangtest'], ['alang测试'], [nil], 180, 100, TDockKind.dkAutoHide,
    TDockSide.alRight, False,
    [TDockWindowButton.wbAutoHide, TDockWindowButton.wbDock, TDockWindowButton.wbHide],
    [TDockKind.dkAutoHide, TDockKind.dkDocking]);

6. 删掉 business.config.xml 文件

caoyeziqq

好的,谢谢jiahaiminghr.
我先试试吧.

caoyeziqq

您好！我按照以上步骤作了，但是得出的效果如图所示：
没有创建侧键！只自动弹出了一个面板，也没有自动隐藏的功能，请再给看看。是不是代码没给全啊！
谢谢！