delphi – 我如何可以将vcl样式应用于TPopup菜单？

我在Delphi XE2应用程序中使用vcl样式,但是当我弹出一个TPopup菜单时,这是使用本机窗口的外观和感觉来显示,是否存在任何方式将vcl样式颜色应用于TPopUpMenu？

解决方法

替换一个 TPopupActionBar的TPopup菜单,或者使用一个插入器类将TPopupMenu转换为TPopupActionBar.

TPopupMenu=class(Vcl.ActnPopup.TPopupActionBar);

还可以看这个Adding VCL Styles support to a TPopupMenu in 2 lines of code