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的屏，則沒有這個問題。