[FMX] Screenauflösung und Monitore

[RWarnecke]

Für die Horizontalen Pixel nutze ich :

Delphi-Quellcode:

function TDisplayInfo.GetHorzPixel: integer;
var
  DevMode: TDeviceMode;
begin
  result := 0;
  DevMode.dmSize := SizeOf(DevMode);
  if EnumDisplaySettings(PChar('\\.\Display' + IntToStr(FIndexDisplay + 1)), ENUM_CURRENT_SETTINGS, DevMode) then
    result := DevMode.dmPelsWidth;
end;

Für die Vertikalen Pixel nutze ich :

Delphi-Quellcode:

function TDisplayInfo.GetVerPixel: integer;
var
  DevMode: TDeviceMode;
begin
  result := 0;
  DevMode.dmSize := SizeOf(DevMode);
  if EnumDisplaySettings(PChar('\\.\Display' + IntToStr(FIndexDisplay + 1)), ENUM_CURRENT_SETTINGS, DevMode) then
    result := DevMode.dmPelsHeight;
end;

Oder Du schaust mal, ob dieses Beispiel funktioniert.