标题使用Delphi重新调整表单

　　大家知道，我们在设计网页的时候，常常会发现在屏幕的显示分辨率更改之后，设计好的表单的布局就面目全非了。那么，我们有没有办法让表单随着分辨率的变化而自动变化呢？在这里，我们可以借助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;