delphi - 调整表单大小，同时保持纵横比

https://www.coder.work/article/5928583

在Form1的 OnCanResize 事件添加以下处理程序似乎对我来说效果很好:

procedure TForm2.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
var
  AspectRatio:double;
begin
  AspectRatio:=200/300;//Height/Width   高/宽  比
  NewHeight:=round(AspectRatio*NewWidth);
end;

 这里能设置缩放的最大值和最小值