如何全局更改 FireMonkey 中的字体？

Question

我正在尝试找到一种方法来全局更改 FireMonkey 项目中的字体。 无需更改所有组件的字体属性，最简单的方法是什么？ 是否有办法设置整个应用程序或整个表单的字体（如 VCL）？

Answer 1

FireMonkey 样式就是执行此操作的方法。请注意，FMX 中未提供使用 ParentXXX 进行操作的 VCL 方式。

这篇文章详细介绍了该主题。

Answer 2

您应该能够使用 Duck Duck Delphi 来完成此操作...

这将更改表单上组件的所有字体：

Form1.duck.all.on('Font').setTo('Name','Arial').setTo('Color',TAlphaColors.Red);

我还没有尝试过，但其中任何一个“应该”可以在应用程序范围内执行相同的操作：

Application.duck.all.each.on('Font').setTo('Name','Arial').setTo('Color',TAlphaColors.Red);
Screen.duck.all.each.on('Font').setTo('Name','Arial').setTo('Color',TAlphaColors.Red);

Duck Duck Delphi 可以在这里找到：

https://bitbucket.org/sivv/duckduckdelphi

Answer 3

Just to set a new  TFont.FontService , you can change default font size and 
family 



unit ChangeDefaultFont; 

interface
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes,FMX.graphics;

type
TDefaultFont = class (TInterfacedObject, IFMXSystemFontService)
public
  function GetDefaultFontFamilyName: string;
  function GetDefaultFontSize: Single;
end;

implementation

{ TDefaultFont }

function TDefaultFont.GetDefaultFontFamilyName: string;
begin
  Result := 'Tahoma';
end;

function TDefaultFont.GetDefaultFontSize: Single;
begin
  Result := 26.0;
end;
initialization
   TFont.FontService := TDefaultFont.Create;
end.