我如何将vcl样式应用于TPopupmenu？

时间：2012-04-15 20:16:59

标签： delphi delphi-xe2 vcl-styles

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

enter image description here

1 个答案:

答案 0 :(得分：18)

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

 TPopupMenu=class(Vcl.ActnPopup.TPopupActionBar);

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

enter image description here

相关问题
最新问题