如何在 Firemonkey FM3 中获取屏幕尺寸？

Question

如何使用 Firemonkey FM³ 获取屏幕尺寸？ 以下代码：

var
  Size: TPointF;
begin
  Size := FMX.Platform.IFMXScreenService.GetScreenSize;
  ...
end;

导致此编译器错误：

[dcc32 Error] Unit1.pas(46): E2018 Record, object or class type required

我应该如何使用IFMXScreenService接口来获取屏幕尺寸？

Answer 1

试试这个：

var
  ScreenSize: TSize;
begin
  ScreenSize := Screen.Size;
  Caption := IntToStr(ScreenSize.Width) + '*' + IntToStr(ScreenSize.Height);
end;

Answer 2

这不是那么简单。

Firemonkey 具有称为分辨率的功能http://docwiki.embarcadero.com/RADStudio/XE5/en/Working_with_Native_and_Custom_FireMonkey_Styles

这实际上是很酷的功能。 如果您使用具有视网膜显示的屏幕，那么您在屏幕上绘制的任何内容都将非常小。 例如 iPhone 的像素分辨率接近 iPad 1 和 iPad 2，但屏幕大两倍。

所以在 iPhone 上

var
  ScreenSize: TSize;
begin
  ScreenSize := Screen.Size;
  Caption := IntToStr(ScreenSize.Width) + '*' + IntToStr(ScreenSize.Height);
end;

看起来像 320x480。 和相同的形式。

但是如果你使用使用 FMX.Platform;

procedure ShowScreenSize;
var
  ScreenSvc: IFMXScreenService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenSvc)) then
  begin
    ScreenSize := Format('Resolution: %fX%f', [ScreenSvc.GetScreenSize.X, ScreenSvc.GetScreenSize.Y]);
    ShowMessageFmt('Screen.Width = %g, Screen.Height = %g', [ScreenSize.X, ScreenSize.Y]);
  end;
end;

您获得以像素为单位的实际屏幕分辨率。

这也适用于配备 Retina 显示屏的 Mac。

Answer 3

这是一个稍微完整/清晰的答案，用于在 Android（可能是 iOS，未测试）设备上以像素为单位获得实际屏幕分辨率：

var
   clientScreenScale   : Single;
   clientScreenSize    : TSize;
   clientScreenService : IFMXScreenService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(clientScreenService)) then
  begin
    clientScreenScale   := clientScreenService.GetScreenScale;
  end
  else clientScreenScale   := 1;

  // The display device's width:
  clientScreenSize.CX   := Round(clientScreenService.GetScreenSize.X*clientScreenScale);

  // The display device's height:
  clientScreenSize.CY   := Round(clientScreenService.GetScreenSize.Y*clientScreenScale);
end;

Answer 4

这是一个不需要按比例乘法的不同解决方案：

var
  aResolution      : JPoint;
begin
  aResolution := TJPoint.Create;
  TAndroidHelper.Display.getRealSize(aResolution);
end;

在 Delphi 10.3 RIO 中运行良好。 据我了解，“getRealSize”至少需要 Android 4.2，但由于 Delphi RIO 甚至不支持旧版本的 Android，我不认为这是一个阻碍。