const
DefaultScreenWidth=800; {缺省屏幕宽度}
DefaultScreenHeight=600; {缺省屏幕高度}
procedure ScaleFormToScr(Form:TForm);
procedure DoScale(ClientScreenWidth,ClientScreenHeight:Integer);
begin
with Form do
begin
if position=poDesigned then
begin
Left:=MulDiv(Left,ClientScreenWidth,DefaultScreenWidth);
Top:=MulDiv(Top,ClientScreenHeight,DefaultScreenHeight);
end;
if (BorderStyle=bsSizeable) then
begin
{如果设计尺寸比客户屏幕尺寸大则无法获得设计的准确尺寸，除非再从资源文件
重新读入，但这似乎是小题大作了。这里只是简单地}
if Width<ClientScreenWidth then
Width:=MulDiv(Width,ClientScreenWidth,DefaultScreenWidth);
if Height<ClientScreenHeight+12 then
Height:=MulDiv(Height,ClientScreenHeight,DefaultScreenHeight);
end;
ScaleBy(ClientScreenWidth,DefaultScreenWidth);
end;
end;
begin
{调整窗体尺寸使之能够在不同分辨率的显示器上正确显示:}
if (Screen.Width<>DefaultScreenWidth) then
DoScale(Screen.Width,Screen.Height);
end;
