Einzelnen Beitrag anzeigen

dstein

Registriert seit: 28. Jul 2005
Ort: Dormagen
55 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#1

Windows default Font herausfinden und übernehmen

  Alt 18. Dez 2023, 14:14
Delphi-Version: 5
Moin Zusammen,
ich möchte gerne das Windows Standard Font herausfinden und übernehmen.

Mit "ComboBox1.Items := Screen.Fonts;" erhalte ich eine Liste alle Fonts.
Ich brauche keine Liste sondern wie komme ich an das aktive (default) Windows-Font (bsp. Calibri)?
Dirk
- Lang ist der Weg durch Lehren, kurz und wirksam durch Beispiele.
(Seneca, röm. Dichter u. Phil., 4 v. Chr. - 65 n.Chr.) -
  Mit Zitat antworten Zitat