Schriftart für gesamtes Formular festlegen

[Tom65]

Wie kann man im Form1.Create die Schriftart für das ganze Formular festlegen?
Mit ParentFont auf true setzen komme ich nicht weiter, weil die Komponenten
verschiedene Schriftgrößen haben. Die Schriftgröße wird dann ja auf die von Form1 gesetzt.

Kann mir jemand einen Tipp geben?

Viele Grüße

Tom65

[marabu]

Vielleicht so?

Delphi-Quellcode:

procedure TMainForm.ChangeFont(c: TControl);
type
  THack = class(TControl)
  public
    property Font;
  end;
var
  i: integer;
begin
  THack(c).Font.Name := 'Courier New';
  for i := 0 to c.ComponentCount - 1 do
    if c.Components[i] is TControl then
      ChangeFont(c.Components[i] as TControl);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  ChangeFont(self);
end;

Grüße vom marabu

[Tom65]

Es funktioniert. Vielen Dank für die Hilfe!