DELPHI中自适应窗体的实现

我们知道,屏幕分辨率的设置影响着表单布局,假设你的机器上屏幕分辨率是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环境下均已通过,二者相比,前者是主动适应,后者则是被动适应。