我在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