打开终端输入 xrandr 得到如下信息 Screen 0: minimum 320 x 200, current 2390 x 768, maximum 8192 x 8192 LVDS connected primary 1366x768+1024+0 (normal left inverted right x axis y axis) 309mm x 174mm 1366x768 60.0*+ 1280x720 59.9 1152x768 59.8 1024x768 59.9 800x60
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; e