How I can apply a vcl style to a TPopupmenu?

13
votes

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?

enter image description here

1
delphidelphi-xe2vcl-styles
@RRUZ, it's your turn :-) – TLama

1 Answers

18
votes

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

enter image description here