Font für alle Forms

[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