在我的 Delphi 10.2 VCL 应用程序中,似乎存在默认的现代 Windows10 VCL 样式问题。对于内置的 Delphi 组件,例如 TFontDialog,在下拉组件中用户无法使用垂直滚动。箭头无法被点击,滚动条也无法被拖动,只有用鼠标滚轮上下滚动才能工作。如果我使用旧的 VCL 样式(例如旧的 XP 样式 Windows),这不是一个问题,用户可以使用所有控件,一切都按预期工作。
TFontDialog 示例
TFontDialog 示例
TFontDialog.Create(Form1);
TFontDialog.Execute;
颜色下拉组件中的垂直滚动无法使用(用红色标出),只能使用鼠标滚动,用户无法点击箭头或拖动滚动条。
TOpenPictureDialog示例
TOpenPictureDialog.Create(Form1);
TOpenPictureDialog.Execute;
下拉组件的垂直滚动不可用(用红色突出显示)。
BrowseForFolder示例
TDirectoryListBox.directory := BrowseForFolder('Choose a folder', '', false);
颜色下拉组件中的垂直滚动不可用(用红色突出显示),只能使用鼠标滚动,用户无法单击箭头或拖动滚动条。
我尝试了@RRUZ在另一个问题的建议(Delphi 10 Seattle-Vista对话框带有VCL样式的错误),添加VCL Styles Utils项目文件,但我不能检测到使用部分的任何更改。
编辑:Delphi 10.2版本25.0.29899.2631