高DPI、Delphi 10.3和VCLStyles皮肤上的窗体/窗口标题存在问题

新的Delphi10.3项目 应用程序-清单-启用运行时主题，每个监视器的DPI感知v2（默认值）

MainForm拥有

procedure TForm24.FormCreate(Sender: TObject);
      var Style    : TStyleManager.TStyleServicesHandle;
begin
  self.font := screen.iconfont;
  self.PixelsPerInch := screen.PixelsPerInch;
  style:=TStyleManager.LoadFromFile(extractfilepath(paramstr(0))+'Dark Outlet Media.vsf');
  tstylemanager.SetStyle(style);
end;

首先，如果我们在高DPI上运行此应用程序，我们会得到：

查看标题-表单标题根本不可见-字体太大，导致标题区域过载

如果我们在FormCreate中添加以下代码，那么主应用程序和所有其他标题看起来都已磨损

StyleDPIAwareness := TStyleDPIAwareness.Create(Self);
StyleDPIAwareness.Parent := Self;

表单标题栏的高度太大，字体也很容易辨认，但我觉得太大了

第一个问题是，我找不到一种方法来设置窗口/表单/标题的字体大小、字体重量，甚至字体系列名称。我们可以为窗体上的所有控件设置窗体的默认字体，但不能设置窗体标题

还有一种方法可以降低高dpi中表格标题的高度增加，所以它并没有现在那个么大

---

这在Delphi10.2和VCLStyles中运行良好。不适用于Delphi 10.3（带或不带VCL样式）。

您找到问题的解决方案了吗？您找到问题的解决方案了吗？

StyleDPIAwareness := TStyleDPIAwareness.Create(Self);
StyleDPIAwareness.Parent := Self;