Вопрос

How can I get the screen resolution in Firemonkey 2 (Delphi XE3)?

Это было полезно?

Решение

It's all changed in XE3. The platform support has been completely overhauled. See Pawel Glowacki's article for more.

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

In spite of the overhaul, this is still not much use if you have multiple monitors. Perhaps there is some multimon support in FMX2, but it's clearly not available in IFMXScreenService.

Лицензировано под: CC-BY-SA с атрибуция
Не связан с StackOverflow
scroll top