如何获取用户在 Delphi TMS Web Core网站中的屏幕分辨率？

mjqavswn 于 2023-10-18 发布在其他

关注(0)|答案(1)|浏览(100)

在FMX中，我可以简单地使用FMX.Forms单元中的TScreen类，并具有如下函数：

function GetScreenResolution: String;
begin
  Result := Screen.Width.ToString + 'x' + Screen.Height.ToString;
end;

但这在TMS Web Core中不起作用。但是我可以做以下代码，它是 Delphi 和JavaScript的混合：

function GetScreenResolution: String;
begin
  asm
    Result = screen.width + "x" + screen.height;
  end;
end;

上面的方法确实有效，但是有没有一种更好的方法，而不是混合使用两种语言？

1条答案

您可以从WEB单元使用window.screen：

function GetScreenResolution: String;
begin
  Result := String(window.screen['width']) + 'x' + String(window.screen['height']);
end;