procedure screenRate(form:Tform); //適應(yīng)不同分辨率
begin
  form.scaled:=true; //screenHeight，screenWidth開發(fā)環(huán)境的分辨率 定義成常量
  if(screen.Width<>screenWidth) then
  begin
    form.height:=longInt(form.height)*longint(screen.height) div screenHeight;
    form.width:=longInt(form.width)*longInt(screen.width) div screenWidth;
    form.scaleby(screen.width,screenWidth);
  end;

end;