如何在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显然没有。