修改一下 业务模型\系统空间\简洁风格\界面库\窗体库\标准风格主窗体
procedure TSTANDARDSTYLEMAINFORM.AddBars;
begin
{ DockStub.AddClient('FuncNavBar', FFuncNavBar, nil);
[FFuncNavBar], TDockKind.dkAutoHide, TDockSide.alLeft);
[OrgTreeView], TDockKind.dkAutoHide, TDockSide.alLeft);}
DockStub.AddClient('RelevancyNavBar', FRelevancyNavBar, nil);
// DockStub.AddClient('DocRelevancyNavBar', FDocRelevancyNavBar, nil); //注释掉这一句
// TODO: 修改记录目前不显示 DockStub.AddClient('EditLogNavBar', FEditLogNavBar, nil);
end; |