delphi - 如何在设计时设置应用程序字体？

Question

我读过最集中的方式 have font-consistency through a project的方法是让所有具有 ParentFont 属性的控件处于事件状态，并在运行时设置 Application.DefaultFont。

我想在设计时在整个应用程序中应用不同的字体，例如“Segoe UI”。

如何在设计时更改它？

Answer 1

您有多种选择，最适合您的选项可能取决于您的情况。

如果您使用自己的表单(不是来自包或库)，那么您可以将每个表单设计为从父级继承，以便为您提供评论中建议的起始字体。然而，IDE 将允许对此进行更改，并且如果表单的 DFM 文件在派生表单中记录了字体，则即使父类字体发生更改，它也会使用该字体。

另一种方法是编写一个可以拖放到表单上的非可视组件。当该组件设置了其所有者(在创建时)时，它可以检查它是否由表单拥有并在父级上设置字体。以同样的方式，它可以设置您想要的任何属性，它还可以找到其所有者的子控件并在这些控件上设置任何属性。

接下来，您可以在运行时查看 TScreen 类，其中包含名为 CustomForms 和 Forms 的属性，它们分别允许您访问 TCustomForm 和 TForm 的所有当前事件的后代。当您可以访问它时，您可以在运行时更改所有字体。因此，如果您允许用户选择字体，则可以使用 Screen 对象更改所有表单上的字体。

两者的结合可以让您轻松控制显示属性。

请注意，更改字体可能会更改呈现的文本的大小。 (当然会改变字体大小和样式)。这可能会影响控件的外观及其对齐方式。