How I can apply a vcl style to a TPopupmenu?

StackOverflow https://stackoverflow.com/questions/10165685

  •  31-05-2021
  •  | 
  •  

質問

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

役に立ちましたか？

解決

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

ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top