Schriftart,farbe usw. Projektweit festlegen

[shmia]

Das lässt sich über eine Form-Factory regeln.
Anstatt das Formular wie üblich direkt zu erzeugen wird folgende Procedure aufgerufen:

Delphi-Quellcode:

procedure GlobalCreateForm(InstanceClass: TComponentClass; var Reference);
var
  Instance: TComponent;
begin
  Instance := TComponent(InstanceClass.NewInstance);
  TComponent(Reference) := Instance;
  try
    Instance.Create(Application);
  except
    TComponent(Reference) := nil;
    raise;
  end;
  if Instance is TForm then
     with Instance as TForm do
     begin
        // Font zentral ändern
        // man sollte die Einstellung natürlich nicht hart codieren
        // sondern beim Progstart laden (z.B. aus INI-Datei)
        Font.Size := 12;
     end;
end;

Beispiel:

Delphi-Quellcode:

var
   frm : TMyForm;
begin
   GlobalCreateForm(TMyForm, frm);  // statt Application.CreateForm()
   frm.ShowModal;
   ...