delphi - Firemonkey:将字体从资源添加到内存并使用它

Question

在VCL中，我可以从资源加载字体，并且无需保存它，我就可以从内存中使用它。

这是我使用的代码，它可以在 VCL 中运行:

procedure TForm1.Button1Click(Sender: TObject);
var
   ResStream  : tResourceStream;
   FontsCount : DWORD;
begin
   ResStream  := tResourceStream.Create(hInstance, 'MyResourceName', RT_RCDATA);
   winapi.windows.AddFontMemResourceEx(ResStream.Memory, ResStream.Size, nil, @FontsCount);
   ResStream.Free();
   button1.Font.name := 'MySavedFontNameInResource';
end;

在Firemonkey中，我刚刚将button1.Font.name更改为button1.Font.family，但不幸的是字体没有改变。所以我认为这段代码与firemonkey不兼容。

那么在Firemonkey中，如何从资源加载字体并将其临时保存到内存中并直接从那里使用它？

更新:

我看到了这些页面:Install font in firemonkey , How to use external fonts?

根据 Mr Ed 的回答，FMX中似乎没有解决这个问题的方法。但如果我们在运行应用程序之前安装它，也许我们可以加载字体。我几乎尝试了所有方法，但仍然无法加载字体。

Answer 1

还有 StylesSettings.ssFamily :New Delphi 中的 bool 属性，必须设置为 False 才能使自定义字体系列正常工作。大小、样式和字体颜色也相同。