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

[Daniel B]

Hallo,

hmm, das hier ändert es doch für alle, ich glaub bis auf normale Labels.

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
  if FontDialog1.Execute then
    Form1.Font.Name := FontDialog1.Font.Name;
end;

Grüsse, Daniel

[CalganX]

Wenn du die Eigenschaft FormName.Font setzt, dann erhalten ALLE Komponenten, die die Eigenschaft ParentFont auf True stehen haben diese Schrift.
Also auch normale Labels...

Chris

[Pseudemys Nelsoni]

danke leuts, mal testen

[Pseudemys Nelsoni]

achja wo wir gerade beim thema fonts sind...krieg ich das Mainmenu auch in anderen fonts? die hat keine eigenschaft "font"

[Daniel B]

Zitat von Chakotay1308:

Also auch normale Labels...

Jaa, hatte es nur mal bei einem verstellt und deswegen ging es bei dem nicht.

Grüsse, Daniel

[Pseudemys Nelsoni]

labels, memos und listboxen haben (selbst wenn parentfont true ist) die standard schrift art....bei gruopboxen etc klappt das, komisch ^^

[Daniel B]

Zitat von silent:

labels, memos und listboxen haben (selbst wenn parentfont true ist) die standard schrift art....bei gruopboxen etc klappt das, komisch ^^

Naja, nicht ganz, siehe Bild. Alles nur damit "Form1.Font.Name := FontDialog1.Font.Name;" geändert. Geht bei allen.

Grüsse, Daniel

[Pseudemys Nelsoni]

hm, stimmt, wenn ich ein neues project mache klappt das...was hab ich bloss bei meinem wieder kaputt gemacht *g* da gehts nicht