Daarom gebruik ik:
In mijn Mainform:
Delphi Code:
  1. StandaardFont.Name := Screen.IconFont.Name; // dit is de systeemfont
  2. StandaardFont.Size := Screen.IconFont.Size;
  3. // e.v. StandaardFont uit instellingen lezen indien gebruiker een andere font wil
  4.  
  5. Application.DefaultFont.Name := StandaardFont.Name; // is dit nodig ?
  6. Application.DefaultFont.Size := StandaardFont.Size; // is dit nodig ?
  7. Screen.MessageFont.Name := StandaardFont.Name;
  8. Screen.MessageFont.Size := StandaardFont.Size;
  9. Screen.MenuFont.Name := StandaardFont.Name;
  10. Screen.MenuFont.Size := StandaardFont.Size;
  11. Self.Font.Name := StandaardFont.Name; // dit is dus ook de Application.MainForm.Font
  12. Self.Font.Size := StandaardFont.Size;

En in al mijn forms (via een inherited form):
Delphi Code:
  1. if not Scaled then
  2. begin
  3.   Font := StandaardFont; // bij not scaled altijd Fnt.Size
  4. end
  5. else
  6. begin
  7.   Font.Name := StandaardFont.Name; // altijd fontface pakken
  8. end;

Op die manier heb ik altijd dezelfde font die het besturingssysteem gebruikt. Dit is in de instellingen te wijzigen in een font die de gebruiker eventueel wil. Zo kan ik ook een Comic Sans 30pt instellen (wat er natuurlijk niet uitziet ).