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;
...