德尔福XE2风格: Main Menu Ignored

Question

我已经在Delphi XE2中的VCL应用程序中应用了样式，但它工作正常，但似乎主菜单忽略了该样式。请参阅附图。这是正常行为吗？

关于如何将样式应用到主菜单有什么建议吗？

Answer 1

这是TMainMenuBarStyleHook Vcl Style hook 的限制。解决此类问题的常规方法是创建并注册新的 TMainMenu 样式 Hook ，但不幸​​的是，此 Vcl 样式 Hook 由 TFormStyleHook (表单)，因此这还需要您创建一个新的表单样式 Hook ，这意味着大量的工作。

所以我的建议是将 TMainMenu 替换为 TActionMainMenuBar 组件，该组件与 vcl 样式配合得很好。