Delphi 11.1 解决高分屏下设计期窗口显示太小的问题

升级到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的屏，则没有这个问题。