说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

自适应表单的实现-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
自适应表单的实现-Delphi资料

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

先在表单单元的Interface部分定义两个常量,表示设计时的屏幕的宽度和高度(以像素为单位)。在表单的

Create事件中先判断当前分辨率是否与设计分辨率相同,如果不同,调用表单的SCALE过程重新调整表单中

控件的宽度和高度。

Const

Orignwidth=800;

Orignheight=600;

procedure TForm1.FormCreate(Sender: TObject);

begin

scaled:=true;

if (screen.width<>orignwidth) then

begin

height:=longint(height)*longint

(screen.height) div orignheight;

width:=longint(width)*longint

(screen.width) div orignwidth;

scaleby(screen.width

orignwidth);

end;

end;

SCALE过程在调整控件宽度和高度的同时,也自动调整控件字体的大小,以适应新的分辨率,但美中不足的

是它并不改变控件的顶点坐标位置,也就是说,该过程不改变控件之间的相对位置关系。要想调整控件之间

的相对位置,还需要自己编程实现,有兴趣的读者可试一试。

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

这种方法不改变表单本身,而是将屏幕分辨率更改为与表单设计时用到的分辨率相同。它需要用到WINDOWS

API函数EnumDisplaySettings和ChangeDisplaySettings,前者取当前显示模式信息,后者则更改显示设

置,具体参数的含义请参见DELPHI 帮助。设计时宽度常量和高度常量的定义如方法一。

procedure TForm1.FormCreate(Sender: TObject);

var

devmode:tDevicemode;

begin

if screen.width<>orignwidth then

begin

if EnumDisplaySettings(nil

0

devmode) then

begin

devmode.dmfields:=dm_pelswidth OR dm_pelsheight ;

devmode.dmpelswidth:=orignwidth; {宽度}

devmode.dmpelsheight:=orignheight;{高度}

ChangeDisplaySettings(devmode

0); {更改设置}

end;

end;

end;

以上两种方法在WINDOWS 95+DELPHI 3.0环境下均已通过,二者相比,前者是主动适应,后者则是被动适应。

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘