DELPHI中自适应表单的实现
2页1、石家庄军械工程学院五系王俊-我们知道,屏幕分辨率的设置影响着表单布局,假设你的机器上屏幕分辨率是800*600,而最终要分发应用的机器分辨率为640*480,或1024*768,这样你原先设计的表单在新机器上势必会走样。这时你一定希望表单能自己适应不同的分辨率,下面就有两种方法可供你参考。-一、根据新的分辨率自动重画表单及控件-先在表单单元的Interface部分定义两个常量,表示设计时的屏幕的宽度和高度(以像素为单位)。在表单的Create事件中先判断当前分辨率是否与设计分辨率相同,如果不同,调用表单的SCALE过程重新能调整表单中控件的宽度和高度。ConstOrignwidth=800;Orignheight=600;procedure TForm1.FormCreate(Sender:TObject);beginscaled:=true;if (screen.widthorignwidth) thenbeginheight:=longint(height)*longint(screen.height)divorignheight;width:=longint(width)*lon
2、gint(screen.width)divorignwidth;scaleby(screen.width,orignwidth);end;end;-SCALE过程在调整控件宽度和高度的同时,也自动调整控件字体的大小,以适应新的分辨率,但美中不足的是它并不改变控件的顶点坐标位置,也就是说,该过程不改变控件之间的相对位置关系。要想调整控件之间的选队相对位置,还需要自己编程实现,有兴趣的读者可试一试。-二、将机器分辨率更改为设计时的分辨率-这种方法不改变表单本身,而是将屏幕分辨率更改为与表单设计时用到的分辨率相同。它需要用到WINDOWSAPI函数EnumDisplaySettings和ChangeDisplaySettings,前者取当前显示模式信息,后者则更改显示设置,具体参数的含义请参见DELPHI帮助。设计时宽度常量和高度常量的定义如方法一。procedure TForm1.FormCreate(Sender:TObject);vardevmode:tDevicemode;beginif screen.widthorignwidth then begin if EnumDisplaySettings(nil,0,devmode) thenbegindevmode.dmfields:=dm_pelswidth OR dm_pelsheight;devmode.dmpelswidth:=orignwidth; 宽度devmode.dmpelsheight:=orignheight;高度ChangeDisplaySettings(devmode,0);更改设置end;end;end;-以上两种方法在WINDOWS95+DELPHI3.0环境下均已通过,二者相比,前者是主动适应,后者则是被动适应。
《DELPHI中自适应表单的实现》由会员cn****1分享,可在线阅读,更多相关《DELPHI中自适应表单的实现》请在金锄头文库上搜索。
在区农村人居环境整治工作推进会上的讲话
2022军队文职人员招聘-军队文职审计学考试全真模拟卷39(附答案带详解)
高考政治大一轮复习 文化生活 1.2 文化对人的影响课时精练
2023年工程部总工程师岗位职责3篇
《山雨》教学设计1
移植推广外汇会计网络系统项目可行性研究报告
《物权法》第116条的适用范围探讨孳息
滕王阁序导学案第一课时带答案
会计个人专业技术工作总结通用
皮带通廊钢结构制作安装施工方案
“对学生使用手机的有效管理”课题开题报告
硫普罗宁原料药和硫普罗项目资金申请报告写作模板+定制代写
甘肃省兰州2019-2020学年高二上学期期末考试数学(理)试题含答案
玻璃体及视网膜脱离手术所致青光眼
2023年幼儿园春季卫生保健工作计划范文(四篇)
浅谈在中学美术教学中如何提高学生自主学习能力
辽宁医学院附属第三医院综合楼消防工程
2016第一学期一班中队计划
兰州关于成立数字通讯线缆公司可行性报告
流动人口管理制度范本(10篇).doc
2022-09-13 53页
2022-12-22 6页
2023-07-03 7页
2023-11-23 2页
2023-11-24 4页
2022-12-16 2页
2023-08-30 6页
2023-10-15 2页
2022-09-12 5页
2023-05-16 4页