Question

I’m rewriting an old application using Delphi 2010 and I’d like to put placeholders in my code for when I port it over to XE2. Just curious if FireMonkey has an equivilent to GetSystemMetrics. I’m specifically interested in:

• GetSystemMetrics(SM_CXSCREEN)
• GetSystemMetrics(SM_CYSCREEN)

Answer 1

If you just need the main monitor size, and not the desktop size (n monitors sum), you can use this:

uses ..., FMX.Platform;


var
  p: TPointF;
begin
  p := Platform.GetScreenSize;
  ShowMessage(Format('X: %f' + LineFeed + 'Y: %f', [p.X, p.Y]));