Delphi – 整个项目的字体一致性？

这意味着我想设置一个特定的字体名称，我的项目中的所有控件将使用，如TButton，TEdit，TLabel等。

通常，为Form而设置Font而不是特定的控件会将该窗体上的所有控件都更改为指定的Font。

但是，如果您在特定控件上手动更改字体，则会出现一个小问题，然后通过表单设置字体将不再更新以前已手动更改的控件。

想法1

我正在考虑使用For循环并遍历我的Forms上的每个组件，并以这种方式设置Font，例如：

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  with TForm(Self) do
  begin
    for i := 0 to ComponentCount - 1 do
    begin
      if Components[i] is TButton then
      begin
        TButton(Components[i]).Font.Name  := 'MS Sans Serif';
        TButton(Components[i]).Font.Size  := 8;
        TButton(Components[i]).Font.Style := [fsBold];
      end;

      if Components[i] is TLabel then
      begin
        TLabel(Components[i]).Font.Name  := 'MS Sans Serif';
        TLabel(Components[i]).Font.Size  := 8;
        TLabel(Components[i]).Font.Style := [fsBold];
      end;
    end;
  end;
end;

但是这样做看起来很混乱，它也将是一个相当数量的代码，用于一个简单的任务。

想法2

我知道我可以在设计时手动更改每个控件的字体，但是通过这种方式可以花费时间，甚至可能会错过一个控件。

想法3

与Idea 2类似，另一种方法可能是以Form(DFM)形式查看Form，并以此方式查找和替换该字体。

基本上我要在我的应用程序中保持一致，并且在整个过程中使用一个字体是我正在寻找的。

我在这里遗漏了一些完全明显的东西，是我试图为这样的任务做过度的杀伤力？