delphi - 如何在 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.