Как я могу применить стиль vcl к TPopupmenu?

Я использую стили vcl в приложении Delphi XE2, но когда я всплываю в TPopupmenu, это шоу, использующее внешний вид и внешний вид собственных окон, существует любой способ применить цвета стиля vcl к TPopUpMenu?

Ответы

Ответ 1

Замените TPopupmenu для TPopupActionBar или используйте класс интерполятора, чтобы передать TPopupMenu в TPopupActionBar.

 TPopupMenu=class(Vcl.ActnPopup.TPopupActionBar);

Также вы можете прочитать это Adding VCL Styles support to a TPopupMenu in 2 lines of code