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

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

最佳答案

您应该可以使用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);

鸭鸭德尔福可以在这里找到:

https://bitbucket.org/sivv/duckduckdelphi

关于delphi - 如何在FireMonkey中全局更改字体？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/8552456/