DELPHI中自适应表单的实现

下载本文示例代码
　　我们知道，屏幕分辨率的设置影响着表单布局，假设你的机器上屏幕分辨率是800*600，而最终 要分发应用的机器分辨率为640*480，或1024*768，这样你原先设计的表单在新机器上势必会 走样。这时你一定希望表单能自己适应不同的分辨率，下面就有两种方法可供你参考。 　　一、根据新的分辨率自动重画表单及控件 　　先在表单单元的Interface部分定义两个常量，表示设计时的屏幕的宽度和高度（以像素为 单位）。在表单的Create事件中先判断当前分辨率是否与设计分辨率相同，如果不同，调用表 单的SCALE过程重新能调整表单中控件的宽度和高度。 ConstOrignwidth=800；Orignheight=600； procedureTForm1.FormCreate(Sender：TObject)；beginscaled：=true；if(screen.width<>orignwidth)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帮助。设计时宽度常量 和高度常量的定义如方法一。 procedureTForm1.FormCreate(Sender：TObject)；vardevmode：tDevicemode；beginifscreen.width<>orignwidththenbeginifEnumDisplaySettings(nil,0,devmode)thenbegindevmode.dmfields：=dm_pelswidthORdm_pelsheight；devmode.dmpelswidth：=orignwidth；{宽度}devmode.dmpelsheight：=orignheight；{高度}ChangeDisplaySettings(devmode,0)；{更改设置}end；end；end； 　　以上两种方法在WINDOWS95 DELPHI3.0环境下均已通过，二者相比，前者是主动适应，后者则是被动适应。 　　我们知道，屏幕分辨率的设置影响着表单布局，假设你的机器上屏幕分辨率是800*600，而最终 要分发应用的机器分辨率为640*480，或1024*768，这样你原先设计的表单在新机器上势必会 走样。这时你一定希望表单能自己适应不同的分辨率，下面就有两种方法可供你参考。 　　一、根据新的分辨率自动重画表单及控件 　　先在表单单元的Interface部分定义两个常量，表示设计时的屏幕的宽度和高度（以像素为 单位）。在表单的Create事件中先判断当前分辨率是否与设计分辨率相同，如果不同，调用表 单的SCALE过程重新能调整表单中控件的宽度和高度。 ConstOrignwidth=800；Orignheight=600； procedureTForm1.FormCreate(Sender：TObject)；beginscaled：=true；if(screen.width<>orignwidth)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帮助。设计时宽度常量 和高度常量的定义如方法一。 procedureTForm1.FormCreate(Sender：TObject)；vardevmode：tDevicemode；beginifscreen.width<>orignwidththenbeginifEnumDisplaySettings(nil,0,devmode)thenbegindevmode.dmfields：=dm_pelswidthORdm_pelsheight；devmode.dmpelswidth：=orignwidth；{宽度}devmode.dmpelsheight：=orignheight；{高度}ChangeDisplaySettings(devmode,0)；{更改设置}end；end；end； 　　以上两种方法在WINDOWS95 DELPHI3.0环境下均已通过，二者相比，前者是主动适应，后者则是被动适应。 下载本文示例代码


DELPHI中自适应表单的实现DELPHI中自适应表单的实现DELPHI中自适应表单的实现DELPHI中自适应表单的实现DELPHI中自适应表单的实现DELPHI中自适应表单的实现DELPHI中自适应表单的实现DELPHI中自适应表单的实现DELPHI中自适应表单的实现DELPHI中自适应表单的实现DELPHI中自适应表单的实现DELPHI中自适应表单的实现DELPHI中自适应表单的实现DELPHI中自适应表单的实现DELPHI中自适应表单的实现