Falls du nicht die Fontgröße, sondern die eingestellte Skalierung (bei mir z.B. 175) wissen willst, hilft vielleicht so etwas:
Delphi-Quellcode:
function GetFontScaling(
Handle: THandle): Integer;
begin
var Monitor := Screen.MonitorFromWindow(
Handle);
{ var Monitor := Screen.MonitorFromPoint(Pnt);
var Monitor := Screen.MonitorFromRect(Rect);
}
Result := Round(Monitor.PixelsPerInch*100/96);
end;
Voraussetzung dafür ist, dass die Anwendung DPI aware ist (Projektoptionen, Anwendung, Manifest).
Gruß G.