Das wollte ich jetzt auch mal ausprobieren und habe die paar Zeilen von kdf in die Projektdatei eingefügt. Bei mir passiert da aber gar nichts; die Werte werden komplett ignoriert. Woran kann das liegen?
begin
screen.MessageFont.Size := 12;
screen.HintFont.Size := 12;
screen.MenuFont.Size := 12;
Application.Initialize;
....
Glaube, das muß vor Application.Initialize stehen.
Genauso habe ich es auch gemacht. Einfach ein neues Projekt erzeugt und die paar Zeilen eingefügt:
Delphi-Quellcode:
program Project1;
uses
Vcl.Forms,
Unit1
in '
Unit1.pas'
{Form1};
{$R *.res}
begin
screen.MessageFont.Size := 14;
screen.HintFont.Size := 14;
screen.MenuFont.Size := 14;
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
In Form1 hab ich ein TMainMenu und eine MessageBox und ShowMessage ausprobiert. Hat nach wie vor alles Schriftgröße 9.