Delphi fmx中获取窗口比例

本文整理自网络，侵删。

 

从柏林Delphi 10.1起，不推荐使用IFMXWindowService.GetWindowScale。

以前，按如下方式获得窗口比例：

procedure TForm1.FormCreate(Sender: TObject);
var
ws: IFMXWindowService;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXWindowService, ws) then
    Memo1.Lines.Add('缩放：' + FloatToStr(ws.GetWindowScale(Self)));  
    //[DCC 警告] Unit1.pas(34): W1000 符号，符号 'GetWindowScale'不建议使用
end;
现在，此方法显示警告。

在Delphi 10.1 Berlin中，使用窗体的句柄的Scale属性。

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.Add('缩放：' + FloatToStr(Self.Handle.Scale));
end;
 

相关阅读 >>

Delphi程序升级到64位

Delphi 十六进制数转换十进制数

Delphi延时

Delphi中禁止webbrowser右键的方法

Delphi三种弹窗

Delphi 使用firedac打开sqlite数据库韩文、阿拉伯文出现乱码的处理方法

Delphi inputbox 用法

Delphi 在指定图片上绘制透明文字

Delphi实现网卡状态检测

Delphi 声明指令

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi fmx中获取窗口比例