Schriftart für gesamtes Formular festlegen

[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