Come posso applicare uno stile vcl a un TPopupmenu?

Question

Sto usando gli stili vcl in un'applicazione Delphi XE2, ma quando apro un TPopupmenu questo è mostrato usando l'aspetto di Windows nativo, esiste un modo per applicare i colori dello stile vcl al TPopUpMenu?

Answer 1

Sostituire il TPopupMenu per un TPopupActionBar o di utilizzare una classe di interposizione per lanciare l'TPopupMenu a TPopupActionBar.

TPopupMenu=class(Vcl.ActnPopup.TPopupActionBar); 

Inoltre si può leggere questo Adding VCL Styles support to a TPopupMenu in 2 lines of code