¿Cómo puedo aplicar un estilo vcl a TPopupmenu?

Question

Estoy usando los estilos vcl en una aplicación Delphi XE2, pero cuando abro un TPopupmenu esto se muestra usando el aspecto y estilo de Windows nativo, ¿existe alguna forma de aplicar los colores de estilo vcl al TPopUpMenu?

Answer 1

Vuelva a colocar la TPopupMenu para un TPopupActionBar o utilizar una clase de interposición a emitir el TPopupMenu a TPopupActionBar.

TPopupMenu=class(Vcl.ActnPopup.TPopupActionBar); 

También usted puede leer esto Adding VCL Styles support to a TPopupMenu in 2 lines of code