如何在高dpi值下獲得視覺繼承？

Question

我有以下帶有兩個按鈕（ BitBtn ）的TForm1表單示例：

另外，我還有第二種形式TForm2 ，它是從第一種形式衍生而來的。 第二個按鈕移到左側，並添加另一個按鈕：

在運行時（Windows 7），第二種形式如下所示：

如果將字體縮放比例更改為125％，則我的表單如下所示：

不知何故，新按鈕的位置和大小都不正確。 我該怎么辦？

我使用了以下.dfm文件（已縮短）：

object Form1: TForm1
  Left = 0
  Top = 0
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object BitBtn1: TBitBtn
    Left = 8
    Top = 8
    Width = 105
    Height = 105
    Caption = 'BitBtn1'
  end
  object BitBtn2: TBitBtn
    Left = 359
    Top = 8
    Width = 105
    Height = 105
    Caption = 'BitBtn2'
  end
end

inherited Form2: TForm2
  Caption = 'Form2'
  PixelsPerInch = 96
  TextHeight = 13
  inherited BitBtn2: TBitBtn
    Left = 191
    Top = 7
    ExplicitLeft = 191
    ExplicitTop = 7
  end
  object BitBtn3: TBitBtn
    Left = 359
    Top = 8
    Width = 105
    Height = 104
    Caption = 'BitBtn3'
  end
end

在設計器生成類文件時，它們保持不變。 它們不包含任何相關代碼。

Answer 1

我自己找到了一種可能的解決方案：必須用以下代碼覆蓋ReadState ：

procedure TForm2.ReadState(Reader: TReader);
begin
  IntPtr(FReserved) := 0;
  inherited;
end;    

這看起來很奇怪。 它是如何工作的？

我查看了VCL源代碼，發現在TForm.ReadState(...)完成表單加載后的縮放。 Apparrently，被保護的字段FReserved的TControl用於存儲當前應用的DPI值：

• 首先，讀取我的基類dfm所有組件
• 然后將它們縮放並正確放置
• 並且當前應用的DPI值存儲在FReserved
• 之后，為派生類的dfm文件再次調用ReadState
• 但是由於FReserved中的值，縮放不應用於導出形式的組件

因此，一種想法是在讀取組件之前重置緩存的DPI值。 它對Form1的組件進行兩次縮放，但這並沒有什么壞處，因為原始大小和位置被記住為縮放的基本值，並且結果完全相同。