Schriftkonsistenz im gesamten Projekt?

Gibt es eine schnelle und effektive Möglichkeit, eine globale Schriftart für ein Projekt anzuwenden?

Damit meine ich, dass ich einen bestimmten Schriftartnamen festlegen möchte, den alle Steuerelemente in meinem Projekt verwenden, zTButton, TEdit, TLabel usw.

Wenn Sie in der Regel die Schriftart für das Formular anstelle eines bestimmten Steuerelements festlegen, werden alle Steuerelemente in diesem Formular in die angegebene Schriftart geändert.

Wenn Sie jedoch eine Schriftart für ein bestimmtes Steuerelement manuell geändert haben, werden die zuvor manuell geänderten Steuerelemente durch das Festlegen der Schriftart über das Formular nicht mehr aktualisiert.

Idee 1

Ich dachte daran, eine For-Schleife zu verwenden und jede Komponente in meinen Formularen zu durchlaufen und die Schriftart folgendermaßen festzulegen:

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;

Aber dies zu tun, scheint sehr chaotisch zu sein, es wird auch eine beträchtliche Menge an Code für eine einfache Aufgabe sein.

Idee 2

Ich weiß, dass ich die Schriftarten zur Entwurfszeit für jedes Steuerelement einzeln manuell ändern kann, aber bei mehreren Formularen kann dies einige Zeit in Anspruch nehmen, und selbst dann kann es sein, dass ich ein Steuerelement übersehen habe.

Idee 3

Ähnlich wie bei Idee 2 besteht eine andere Möglichkeit darin, das Formular als Text (DFM) anzuzeigen und die Schriftart auf diese Weise zu suchen und zu ersetzen.

Grundsätzlich bin ich bestrebt, die Konsistenz in meiner Anwendung zu gewährleisten, und ich wollte erreichen, dass durchgehend eine Schriftart verwendet wird.

Fehlt mir hier etwas völlig Offensichtliches, versuche ich für eine solche Aufgabe Overkill zu machen?

Antworten auf die Frage(3)

Ihre Antwort auf die Frage