delphi 屏幕DPI计算


本文整理自网络,侵删。

 
procedure TForm1.Button1Click(Sender: TObject);
var
  DC: HDC;
  t:integer;
begin

  DC := GetDC(0);
  t:=GetDeviceCaps(DC, logpixelsx) ;
  ReleaseDC(0, DC);
  edit1.Text:= inttostr(t);

  edit2.Text:= vartostr (t / 96 );


end;

相关阅读 >>

Delphi idhttpserver的使用方法

Delphi 无法结束进程的程序

Delphi 将 4 个 byte 合成 1 个 integer 的五种方法 - 回复 "三足乌" 的问题

Delphi 获取与设置系统环境变量

Delphi程序不受windows日期格式的影响

Delphiwindows 下编译 exe 文件时把一个外部 txt 文件编译到 exe 里面

Delphi 防止程序重复打开运行

Delphi tmsweb core webhttprequest1提交json数据

Delphi md5单元文件

Delphi中webbrowser(或者embeddedwebbrowser)控件打开部分网站报“invalid floating point operation”异常的解决方法

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...