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

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

Источник

1 ответ

Решение

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

 TPopupMenu=class(Vcl.ActnPopup.TPopupActionBar);

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

Источник
Другие вопросы по тегам