delphi - 如何将 vcl 样式应用到 TPopupmenu？

Question

我在 Delphi XE2 应用程序中使用 vcl 样式，但是当我弹出 TPopupmenu 时，这是使用 native 窗口外观和感觉显示的，是否有任何方法将 vcl 样式颜色应用于 TPopUpMenu？

Answer 1

将 TPopupmenu 替换为 TPopupActionBar或者使用插入器类将 TPopupMenu 转换为 TPopupActionBar。

 TPopupMenu=class(Vcl.ActnPopup.TPopupActionBar);

您也可以阅读此Adding VCL Styles support to a TPopupMenu in 2 lines of code