需要添加dxNavBarOffice12Views单元:
这是代码:
MyNavBar:= TdxNavBar.Create(nil);
MyNavBar.BeginUpdate();
MyNavBar.Align:= alClient;
MyNavBar.View:= 17;
TdxNavBarOffice12NavPanePainter(MyNavBar.ViewStyle).ColorSchemeName:='Silver';
MyNavBar.Parent:= MyForm;
MyNavBar.EndUpdate()