DELPHI中自适应表单的实现_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

DELPHI中自适应表单的实现

作者：闵涛文章来源：闵涛的学习笔记点击数：647 更新时间：2009/4/23 18:24:57

　　我们知道，屏幕分辨率的设置影响着表单布局，假设你的机器上屏幕分辨率是800*600，而最终要分发应用的机器分辨率为640*480，或1024*768，这样你原先设计的表单在新机器上势必会走样。这时你一定希望表单能自己适应不同的分辨率，下面就有两种方法可供你参考。

　　一、根据新的分辨率自动重画表单及控件

　　先在表单单元的Interface部分定义两个常量，表示设计时的屏幕的宽度和高度（以像素为单位）。在表单的Create事件中先判断当前分辨率是否与设计分辨率相同，如果不同，调用表单的SCALE过程重新能调整表单中控件的宽度和高度。

Const
Orignwidth=800；
Orignheight=600；

procedureTForm1.FormCreate(Sender：TObject)；
begin
scaled：=true；
if(screen.width<>orignwidth)then
begin
height：=longint(height)*longint
(screen.height)divorignheight；
width：=longint(width)*longint
(screen.width)divorignwidth；
scaleby(screen.width,orignwidth)；
end；
end；

　　SCALE过程在调整控件宽度和高度的同时，也自动调整控件字体的大小，以适应新的分辨率，但美中不足的是它并不改变控件的顶点坐标位置，也就是说，该过程不改变控件之间的相对位置关系。要想调整控件之间的选队相对位置，还需要自己编程实现，有兴趣的读者可试一试。

　　二、将机器分辨率更改为设计时的分辨率

　　这种方法不改变表单本身，而是将屏幕分辨率更改为与表单设计时用到的分辨率相同。它需要用到WINDOWSAPI函数EnumDisplaySettings和ChangeDisplaySettings，前者取当前显示模式信息，后者则更改显示设置，具体参数的含义请参见DELPHI帮助。设计时宽度常量和高度常量的定义如方法一。

procedureTForm1.FormCreate(Sender：TObject)；
var
devmode：tDevicemode；
begin
ifscreen.width<>orignwidththen
begin
ifEnumDisplaySettings(nil,0,devmode)then
begin
devmode.dmfields：=dm_pelswidthORdm_pelsheight；
devmode.dmpelswidth：=orignwidth；{宽度}
devmode.dmpelsheight：=orignheight；{高度}
ChangeDisplaySettings(devmode,0)；{更改设置}
end；
end；
end；

　　以上两种方法在WINDOWS95+DELPHI3.0环境下均已通过，二者相比，前者是主动适应，后者则是被动适应。

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： LED数码管仿真显示程序

下一篇教程：用Delphi制作动态菜单

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……