FMX取得屏分辨率

procedure Tfrm_Main.FormCreate(Sender: TObject);
var
  ScreenSvc: IFMXScreenService;
  Size: TPointF;
begin
  if TPlatformServices.Current.SupportsPlatformService  (IFMXScreenService, IInterface(ScreenSvc))  then
  begin
    Size := ScreenSvc.GetScreenSize;
  end;
end;
 

Size.x：屏宽度  Size.y:高度

通过平台的服务，很容易取得显示屏幕的宽度与高度，自从Delphi 10支持了多显示，可以通过全局的TScreen.Screen对象来得取每个屏的信息。

Screen.DisplayCount取得显示屏的数量，通过ScreenDisplays[x]取得每个显示屏对象，再通过width,height,WorkAreaRect等属性取得相关的信息。更多的细节，可以参阅官方文档：

http://docwiki.embarcadero.com/RADStudio/Seattle/en/Multiple_Display_Support