Font für alle Forms

[Pseudemys Nelsoni]

moin

ich habe ein Fontdialog in meinem "programm" eingebaut, wie ich die fonts jedes einzelnen objects änder weiss ich, hab ich aber nicht die möglichkeit alle forms und somit die darauf liegenden komps mit einem befehl die schriftart zu geben? ich meine....

Delphi-Quellcode:

    Form1.Font.Name := settings.ReadString('font', 'font', '');
    GroupBox1.Font.Name := settings.ReadString('font', 'font', '');
    GroupBox2.Font.Name := settings.ReadString('font', 'font', '');
    GroupBox3.Font.Name := settings.ReadString('font', 'font', '');
    Memo1.Font.Name := settings.ReadString('font', 'font', '');
    ListBox1.Font.Name := settings.ReadString('font', 'font', '');
    Edit1.Font.Name := settings.ReadString('font', 'font', '');

da sind noch 46245 mehr komponenten auf den forms...muss ich jetzt für jede, extra schreiben?

mfg silent