如何获得显示器的尺寸,并通过该尺寸调整窗体大小? 如题很急得,请各位高手指点! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 是显示器的分辨率还是显示器的尺寸?如果是显示器的分辨率的话用screen.height,screen.width如果是显示器的尺寸的话,建议用米尺,对角斜着量,然后换算成英寸。 要得到显示器的分辨率,由下列程序得到:var x:longint; a:string;begin x := GetSystemMetrics(SM_CXSCREEN);//获得显示器水平分辨率 Str(x,a); Label1.Caption := '显示器水平分辨率' + a; x := GetSystemMetrics(SM_CYSCREEN);//获得显示器垂直分辨率 Str(x,a); Label2.Caption := '显示器垂直分辨率' + a;end; 全局变量Screen, 类型是TScreen, 有你需要的各种信息,包括屏幕分辨率。 Screen可以直接拿来用,如果分辨率是1024X768的话,Screen.Width就是1024,Screen.Height就是768.如此类推.... delphi cxgride 的用法 高价求Delphi+MS SQL 编写的手袋箱包行业的生产管理软件。。。 在DBchart 里如何动态设置 series 面板里的data source 中的labels? 神经Borland公司!!! 请教:TreeView与ComboBox的组合问题 哥们!散分啦! 如何delphi和SQL相连接 dbExpress与SQL Server 2000的连接! 有关delphi 打印的问题, 请教如何将一个十进制数格式化为十六进制数。 动态创建列表框中为何老报错!!! 一个线程中发生的异常,能被另一个线程捕捉吗?
如果是显示器的分辨率的话
用screen.height,screen.width
如果是显示器的尺寸的话,
建议用米尺,对角斜着量,然后换算成英寸。
var
x:longint;
a:string;
begin
x := GetSystemMetrics(SM_CXSCREEN);//获得显示器水平分辨率
Str(x,a);
Label1.Caption := '显示器水平分辨率' + a;
x := GetSystemMetrics(SM_CYSCREEN);//获得显示器垂直分辨率
Str(x,a);
Label2.Caption := '显示器垂直分辨率' + a;
end;