我在 Delphi XE2 应用程序中使用 vcl 样式，但是当我弹出一个 TPopupmenu 这是使用本机窗口外观和感觉显示时，是否存在将 vcl 样式颜色应用于 TPopUpMenu 的任何方式？
问问题
950 次
1 回答
18
将 TPopupmenu 替换为TPopupActionBar或使用插入器类将 TPopupMenu 强制转换为 TPopupActionBar。
TPopupMenu=class(Vcl.ActnPopup.TPopupActionBar);
你也可以阅读这个Adding VCL Styles support to a TPopupMenu in 2 lines of code
于 2012-04-15T20:19:33.667 回答