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

Question

I'm using the vcl styles in a Delphi XE2 application, but when i popup a TPopupmenu this is show using the native windows look and feel, exist any way to apply the vcl style colors to the TPopUpMenu?

Answer 1

Replace the TPopupmenu for a TPopupActionBar or use a interposer class to cast the TPopupMenu to TPopupActionBar.

 TPopupMenu=class(Vcl.ActnPopup.TPopupActionBar);

Also you can read this Adding VCL Styles support to a TPopupMenu in 2 lines of code