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

Question

如何使用FiremonkeyFM³获得屏幕尺寸？以下代码:

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和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.