升级到Delphi 11.1了,遇到个问题,当打开旧的VCL项目,显示的太小了,如下图一样:
第一步,用代码取得窗口在运行期的PixelsPerInch值。代码如下:
procedure TMainForm.FormCreate(Sender: TObject); begin ShowMessage(Self.PixelsPerInch.ToString)
运行项目,如下图,得到了值 192:
第二步,用这个值设置High DPI,如下图,设置Custom Design PPI为192,当然,默认为96,你也可以设置你喜欢的值,来调整窗口在设计期的大小,象我这样设置,能保证运行结果与设计结果一致。
第三步,切换一下代码与Form,重新显示Form,问题解决,显示正常了!当然,如果你用1920*1080的屏,则没有这个问题。