如何禁用Delphi 10.1柏林的PopupMenu/Menu的VCL样式？

Question

如何禁用Delphi 10.1的PopupMenu/Menu的VCL Style？

因为长菜单无法正常运行。所以，我想使用Windows风格的菜单/弹出菜单项。

这可能吗？

Answer 1

要禁用VCL样式下菜单的样式，您必须删除TStyleManager.SystemHooks属性的shMenus元素。

TStyleManager.SystemHooks := TStyleManager.SystemHooks - [shMenus];