标准风格主窗体中屏蔽下面代码:
procedure TSTANDARDSTYLEMAINFORM.InitBarPosition;
begin
{DockStub.InitControlConfigs(['FuncNavBar'], ['业务功能'], [ImgFuncTree.Picture],
180, 100, TDockKind.dkAutoHide,
TDockSide.alRight, False,
[TDockWindowButton.wbAutoHide, TDockWindowButton.wbDock, TDockWindowButton.wbHide],
[TDockKind.dkAutoHide, TDockKind.dkDocking]);}
{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.dkAutoHide,
TDockSide.alRight, False,
[TDockWindowButton.wbAutoHide, TDockWindowButton.wbDock, TDockWindowButton.wbHide],
[TDockKind.dkAutoHide, TDockKind.dkDocking]); }
然后删除客户端的business.用户名.xml文件看看 |