DELPHI中自适应表单的实现

2016-02-19 16:44 22 1 收藏

今天图老师小编要跟大家分享DELPHI中自适应表单的实现,精心挑选的过程简单易学,喜欢的朋友一起来学习吧!

【 tulaoshi.com - 编程语言 】

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

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

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

ConstOrignwidth=800;Orignheight=600;procedureTForm1.FormCreate(Sender:TObject);beginscaled:=true;if(screen.widthorignwidth)thenbeginheight:=longint(height)*longint(screen.height)divorignheight;width:=longint(width)*longint(screen.width)divorignwidth;scaleby(screen.width,orignwidth);end;end;

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

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

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

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)
procedureTForm1.FormCreate(Sender:TObject);vardevmode:tDevicemode;beginifscreen.widthorignwidththenbeginifEnumDisplaySettings(nil,0,devmode)thenbegindevmode.dmfields:=dm_pelswidthORdm_pelsheight;devmode.dmpelswidth:=orignwidth;{宽度}devmode.dmpelsheight:=orignheight;{高度}ChangeDisplaySettings(devmode,0);{更改设置}end;end;end;

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

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

来源:http://www.tulaoshi.com/n/20160219/1612955.html

延伸阅读
标签: Delphi
  各位亲爱的读者,在delphi编程实战中我们可以使用按钮控件来制作程序中的按钮键。但是在使用其它软件时,我们常常可以看到透明按钮的效果。那么如何在delphi中实现透明按钮的效果?笔者在互联网搜索了不少时间也没有找到这方面的控件,于是决定自己DIY一番,下面笔者就将自己的经验与广大读者共享一番。 要实现透明按钮,共需...
标签: Web开发
前言 有时候我们不得不面对圆角,也很傻很天真的认为利用 CSS3 的新特性对浏览器分级支持是最好解决方案,但现实≠理想 需求3px 圆角 宽度自适应(随着文字字数扩展宽度并自动换行) 换肤 不使用图片(对可维护性/性能均有影响) 困惑 经典的解决方案看起来像这样: !DOCTYPE htmlhtmlheadmeta content="text/html; charset=utf-8&qu...
标签: Web开发
div下图片自适应解决方法 以前的解决方法主要是利用js来实现,但用过的人都知道该办法有点繁琐。还有一种是在外部容器定义over-flow:hidden。但这种办法只会切割图片而不会自动适用。  关键在于:max-width:780px;以及下面那行。 固定像素适应: dotted; TABLE-LAYOUT: fixed; BORDER-TOP: #cccccc 1px dotted; BORDER-LEFT: #cccccc ...
标签: Web开发
main.htm: html       head          meta  http-equiv='Content-Type'  content='text/html;  charset=gb2312' /          meta  name='author'  c...
标签: Web开发
代码如下: script type="text/javascript" !-- $( function() { //iframe高度随内容自动调整 $('.main').load( function() { $(this).height($(this).contents().find("body").attr('scrollHeight')); } ); } ); // -- /script

经验教程

368

收藏

31
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部