delphi – 在TOpenDialog中右键单击文件时,使用自定义样式显示无

发布时间：2020-12-15 04:28:56 所属栏目：大数据来源：网络整理

导读：请参阅以下步骤重现.在XE2中运行良好,但不适用于XE8. 创建一个新的VCL Forms Forms – Delphi 在表单上放置一个TButton和一个TOpenDialog 按钮OnClick事件调用OpenDialog1.Execute 运行程序,打开文件对话框,右键单击文本文件=显示菜单项可以转到项目/选项/

请参阅以下步骤重现.在XE2中运行良好,但不适用于XE8.

>创建一个新的VCL Forms Forms – Delphi
>在表单上放置一个TButton和一个TOpenDialog
>按钮OnClick事件调用OpenDialog1.Execute
>运行程序,打开文件对话框,右键单击文本文件=>显示菜单项可以
>转到项目/选项/应用/外观.启用并选择自定义样式(如“Ruby Graphite”)并重新编译
>运行程序,然后右键单击文本文件=>不正确显示菜单项(显示无效字符)

用XE8订阅更新1测试(Windows从8.1升级到10)

解决方法

Windows 10引入了代码中的一些内部更改,负责绘制shell弹出菜单.所以VCL风格代码必须修改为与Windows 10兼容.我刚刚报告了 this to EMB

作为解决方法,您可以使用修复此问题的VCL Styles Utils项目(只需要将Vcl.Styles.Utils.Menus单元添加到您的项目中).

检查下一个图像,左侧弹出菜单使用标准VCL样式,右侧菜单使用VCL Styles Utils项目.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!