delphi - 如何将Vcl样式应用于TPopupmenu？

我在Delphi XE2应用程序中使用vcl样式，但是当我弹出TPopupmenu时，这是使用本机Windows外观显示的，是否存在将vcl样式颜色应用于TPopUpMenu的方法？

最佳答案

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

 TPopupMenu=class(Vcl.ActnPopup.TPopupActionBar);

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

关于delphi - 如何将Vcl样式应用于TPopupmenu？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/10165685/