修改一下代码就可以了。
我拿文档关联做的修改(具体你参照着做吧)
//原来的代码
{DockStub.InitControlConfigs(['OrgTreeView'], 180, 100, TDockKind.dkAutoHide,
TDockSide.alLeft, False,
[TDockWindowButton.wbAutoHide, TDockWindowButton.wbDock, TDockWindowButton.wbHide],
[TDockKind.dkAutoHide, TDockKind.dkDocking]);}
//修改后的代码
DockStub.InitControlConfigs(['RelevancyNavBar'], ['关联信息'], [nil], 180, 100, TDockKind.dkDocking,
TDockSide.alRight, False,
[TDockWindowButton.wbAutoHide, TDockWindowButton.wbDock, TDockWindowButton.wbHide],
[TDockKind.dkAutoHide, TDockKind.dkDocking]); |