使用procedure ScaleBy(M, D: Integer)这个过程来对可视控件进行大小调节（此过程不调节窗口大小，也不变动控件的left和top，对控件的大小按M/D比例来调节），具体如下：
procedure TForm1.FormCreate(Sender: TObject);
//假设原来的设计环境为800x600
var
FWidth:integer;
begin
if(Screen.width<> 800)then
begin
FWidth:=Width;
Scaled:=TRUE;
Font.Size:=(Width DIV FWidth)*Font.Size;//字体大小调整
ScaleBy(Screen.Width,800);
//控件大小调整
Height:=longint(Height)*longint(Screen.Height)DIV 600;
Width:=longint(Width)*longint(Screen.Width)DIV 800;//窗口大小调整
end;
end;
用此种方法比较实用，而且使用比较简单，基本能适应大多数环境。
