delphi - 如何获取Firemonkey XE3中的屏幕分辨率？

Question

如何获取 Firemonkey 2 (Delphi XE3) 中的屏幕分辨率？

Answer 1

这一切在 XE3 中都发生了变化。平台支持已被彻底修改。请参阅Pawel Glowacki's article了解更多。

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

尽管进行了彻底修改，但如果您有多个显示器，这仍然没有多大用处。也许 FMX2 中有一些 multimon 支持，但在 IFMXScreenService 中显然不可用。