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 webbrowser1 保存文档为 .html

Delphi的tclientsocket组件和tserversocket组件(c/s)说明

Delphi tms web core直接从html&css设计的页面布局

Delphi 打开文件夹并定位到一个文件

Delphi case选择语句练习代码简化

Delphi网络英汉字典代码

Delphi stringgrid常用属性和常用操作

Delphi 获取所有磁盘分区

Delphi 对zlib单元进行再封装

Delphi 检验指定字符串网址是否输入正确

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

转载请注明出处：木庄网络博客 » delphi 屏幕DPI计算