首页 / 软件开发 / Delphi / DELPHI中自适应表单的实现

DELPHI中自适应表单的实现2009-10-11我们知道，屏幕分辨率的设置影响着表单布局，假设你的机器上屏幕分辨率是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过程在调整控件宽度和高度的同时，也自动调整控件字体的大小，以适应新的分辨率， 但美中不足的是它并不改变控件的顶点坐标位置，也就是说，该过程不改变控件之间的相对 位置关系。要想调整控件之间的选队相对位置，还需要自己编程实现，有兴趣的读者可试一 试。