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

Question

我正在尝试找到一种全局更改FireMonkey项目中字体的方法.在不必更改所有组件的字体属性的情况下,最简单的方法是什么？如果有办法设置整个应用程序或整个表单的字体(如在VCL中)？

Answer 1

你应该能够用 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