13

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

Salvador
  • 16,132
  • 33
  • 143
  • 245

1 Answers1

18

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

RRUZ
  • 134,889
  • 20
  • 356
  • 483