delphi - Firemonkey XE3 で画面解像度を取得するには?

Question

Firemonkey 2 (Delphi XE3) で画面解像度を取得するにはどうすればよいですか?

Answer 1

XE3ではすべて変更されています。プラットフォームのサポートは完全に見直されました。詳細については、 PawelGlowackiの記事を参照してください。

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

オーバーホールにもかかわらず、複数のモニターがある場合、これはまだあまり使用されません。おそらく、FMX2にはいくつかのマルチモンサポートがありますが、では明らかに利用できませんIFMXScreenService。