VCL高DPI样式致滚动条尺寸异常,如何强制重绘滚动条?
Delphi 12.1 Athens MDI滚动条重绘缺陷
复现步骤
- 创建Windows 32位VCL MDI应用程序
- 在项目选项的「外观」中选择「Windows 11 Polar Light」样式
- 添加一个
alTop对齐的面板,在面板上创建名为NewBtn的按钮 - 为
NewBtn添加OnClick事件并编写代码实现创建子窗体的功能 - 运行程序,点击
NewBtn创建子窗体,移动子窗体使主窗体的垂直滚动条显示出来 - 调整面板高度,此时垂直滚动条无法正常重绘
当前状态与无效尝试
该问题已被确认为官方缺陷,目前暂无官方解决方案。尝试以下操作均无法解决问题:
- 调整主窗口大小(窗口最大化状态下操作无效)
- 调用主窗体的
Resize()方法
内容的提问来源于stack exchange,提问作者Koot33
相关产品推荐
相关产品推荐

