How I can apply a vcl style to a TPopupmenu?

delphi, delphi-xe2, vcl-styles

Solution

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`

Problem

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?

Original source