[delphi+] Delphi 11.1 解决高分屏下设计期窗口显示太小的问题 [zt]
clq
浏览(403) -
2023-11-06 12:05:20 发表
编辑
关键字:
[delphi+] Delphi 11.1 解决高分屏下设计期窗口显示太小的问题 [zt]
https://blog.51cto.com/kinglandsoft/5159418
红鱼儿_
2022-03-29 17:36:33
升级到Delphi 11.1了，遇到个问题，当打开旧的VCL项目，显示的太小了，如下图一样：
Delphi 11.1 解决高分屏下设计期窗口显示太小的问题_设计期窗口显示
第一步，用代码取得窗口在运行期的PixelsPerInch值。代码如下：
procedure TMainForm.FormCreate(Sender: TObject);
begin
ShowMessage(Self.PixelsPerInch.ToString)
运行项目，如下图，得到了值 192：
Delphi 11.1 解决高分屏下设计期窗口显示太小的问题_设计期窗口显示_02
第二步，用这个值设置High DPI，如下图，设置Custom Design PPI为192，当然，默认为96，你也可以设置你喜欢的值，来调整窗口在设计期的大小，象我这样设置，能保证运行结果与设计结果一致。
Delphi 11.1 解决高分屏下设计期窗口显示太小的问题_设计期窗口显示_03
第三步，切换一下代码与Form，重新显示Form，问题解决，显示正常了！当然，如果你用1920*1080的屏，则没有这个问题。
[图片]
本帖子属于以下条目()
NEWBT官方QQ群1: 276678893
可求档连环画,漫画;询问文本处理大师等软件使用技巧;求档softhub软件下载及使用技巧.
但不可"开车",严禁国家敏感话题,不可求档涉及版权的文档软件.
验证问题说明申请入群原因即可.
