如何在Firemonkey XE3中获得屏幕分辨率？

Question

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

Answer 1

它在XE3中都发生了变化.平台支持已经彻底改革.有关更多信息,请参阅Pawel Glowacki的文章.

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

尽管进行了大修,如果您有多台显示器,这仍然没什么用处.也许在FMX2中有一些multimon支持,但它显然不可用IFMXScreenService.