delphi - FireMonkey 有类似 GetSystemMetrics 的东西吗？

Question

我正在使用 Delphi 2010 重写一个旧应用程序，并且我想在我的代码中放置占位符，以便在将其移植到 XE2 时使用。只是好奇 FireMonkey 是否有与 GetSystemMetrics 等效的功能。我特别感兴趣的是:

• 获取系统指标(SM_CXSCREEN)
• 获取系统指标(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]));