有没有办法更改表单上所有组件的默认字体？
在win8中，默认的“MS Sans Serif”看起来很薄并且被淘汰了。列表中显示了一个新的字体，我假设MSoft因为某些原因为win8添加了它。它被称为“Microsoft Sans Serif”，是一个更清洁，更轻松的Bold-ed字体。
I used this link更改Forms的默认值，思考（希望）所有组件都使用Parent-Font，但遗憾的是，没有。 Registry tweak改变的唯一内容是Form的Title Font。 Form的主体及其上的组件仍然使用了旧的“MS Sans Serif”。
除了每次都更改Form的body-Font之外，是否有某种方法可以强制所有组件使用较新的Font？
答案 0 :(得分：1)
Delphi 5不支持DefaultFont属性。
您可以通过将所有表单和控件的ParentFont属性设置为true来解决此问题。
有或没有DefaultFont：您应用中的所有字体（尤其是Name，Height和Style）都必须是同样可以使这项工作。
解决问题的另一种方法是编写一个递归访问所有控件的方法，并将Fonts / Forms上Controls的{{3}}属性替换为 安装的字体名称。这适用于所有Delphi版本。
所以答案是肯定的。
编辑：此类方法的示例：Name