Windows default Font herausfinden und übernehmen

[dstein]

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)?

[PaPaNi]

Moin,

Vielleicht könnte man damit anfangen?
Das hat mir ChatGPT angeboten. Der Code liefert "Segoe UI" als Ergebnis zurück.

Delphi-Quellcode:

var
  nonClientMetrics: TNonClientMetrics;
  ...

  FillChar(nonClientMetrics, SizeOf(TNonClientMetrics), 0);
  nonClientMetrics.cbSize := SizeOf(TNonClientMetrics);
  if SystemParametersInfo(SPI_GETNONCLIENTMETRICS, SizeOf(TNonClientMetrics), @nonClientMetrics, 0) then begin
    WindowsDefaultFontName := nonClientMetrics.lfCaptionFont.lfFaceName;
  end else begin
    WindowsDefaultFontName := 'unknown';
  end;

[Uwe Raabe]

Die gleiche Information findet man übrigens auch in Screen.CaptionFont (natürlich nur solange man den Wert nicht selbst verändert).

[rwalper]

Ich werfe mal Application.DefaultFont ins Rennen

[dstein]

Hallo ihe Beide,
Danke für die Antwort. Passt

edt_font.Text:=Screen.CaptionFont.Name;
MyRichedit.Font := Screen.CaptionFont;

Und wieder etwas gelernt, Danke.

[dstein]

"Ich werfe mal Application.DefaultFont ins Rennen "
Gibt den Font der in Delphi eingestelltem Font zurück, bei mir "Tahoma".

[Uwe Raabe]

Genauer: Gibt das in DefFontData eingestellte zurück (hier aus Delphi 12):

Delphi-Quellcode:

  // New TFont instances are intialized with the values in this structure:
  DefFontData: TFontData = (
    Handle: 0;
    Height: 0;
    Orientation: 0; { No rotation }
    Pitch: fpDefault;
    Style: [];
    Charset : DEFAULT_CHARSET;
    Name: 'Segoe UI');

Allerdings ist das eben auch eine Variable und kann im Programm überschrieben werden.