使用Delphi重新调整表单

望月 
2001年 36期

　　大家知道，我们在设计网页的时候，常常会发现在屏幕的显示分辨率更改之后，设计好的表单的布局就面目全非了。那么，我们有没有办法让表单随着分辨率的变化而自动变化呢？在这里，我们可以借助Delphi来设计一个程序达到自动调整的目的。设计时，我们可以使用Interface部分定义屏幕的宽度和高度两个参数，然后通过程序来判断当前分辨率是否与设计分辨率相同，最后利用SCALE来达到重新调整表单布局的目的，下面是程序的主要源代码：
　　　　Const
　　　　Screenwidth=1024；
　　　　Screenwidth=758； //定义屏幕的原始分辨率
　　　　procedure TForm1．FormCreate（Sender：TObject）；
　　　　begin
　　　　scaled：=true；//判断当前分辨率是否与设计分辨率相同
　　　　if（screen．width＜＞Screenwidth）then
　　　　begin //重新调整表单布局
　　　　height：=longint（height）*longint（screen．height）div Screenwidth
　　　　width：=longint（width）*longint（screen．width） div Screenwidth；
　　　　scaleby（screen．width，Screenwidth）；
　　　　end；
　　　　end；
　　 
 