修改显屏分辨率时，如何能让窗体大小也随之改变？？？屏幕映射问题！！！急

Question

谢谢了，如果有源代码，麻烦能贴出来！！！

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
var
  hRatio, vRatio:Double;
begin
  hRatio := Screen.Width/1024;
  vRatio := Screen.Height/768;
  Width := Round(Width * hRatio);
  Height := Round(Height*vRatio);
end;
假定你的程序是在1024*768的分率下设计的。

Answer 2

呵呵,小刀快了一步,就是这个方法主要是使用了screen这个对象