在 Lazarus 中，如何找到 Form1 上使用的 "real" 字体值？

Question

在 Lazarus 中，Form1 的默认字体值为：
Form1.Font.Name=默认
Form1.Font.Size=0

如何找到这些默认值的实际“真实”字体名称和字体大小？

Answer 1

此代码似乎有效：

procedure TForm1.GetFormFontName;
var
  S : String;
begin
  S := GetFontData(Self.Font.Handle).Name;
  Caption := S;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  GetFormFontName;
end;

GetFontData returns一条TFontData记录

 TFontData = record
    Handle: HFont;
    Height: Integer;
    Pitch: TFontPitch;
    Style: TFontStylesBase;
    CharSet: TFontCharSet;
    Quality: TFontQuality;
    Name: TFontDataName;
    Orientation: Integer;
  end;

这不包括字体的 Size，它是显式发布的属性字体。

上面的代码源自此线程：https://forum.lazarus.freepascal.org/index.php?topic=16697.0，我发现它是此 google 查询返回的第一个匹配项

font name default site:freepascal.org

在 Lazarus 中，如何找到 Form1 上使用的 "real" 字体值？

In Lazarus how do I find the "real" font values used on Form1?

lazarus

freepascal