FireMonkey与GetSystemMetrics有什么相似之处吗？

Question

我正在使用Delphi 2010重写一个旧的应用程序,我想在我的代码中放置占位符,以便将它移植到XE2.只是好奇FireMonkey是否与GetSystemMetrics相当.我特别感兴趣的是:

• GetSystemMetrics的(SM_CXSCREEN)
• GetSystemMetrics的(SM_CYSCREEN)

Answer 1

如果您只需要主监视器大小,而不是桌面大小(n监视器总和),您可以使用:

uses ..., FMX.Platform;


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