5

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

4

1 回答 1

9

这一切都在 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.

于 2012-10-09T17:14:14.270 回答