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;
这里能设置缩放的最大值和最小值
标签:delphi,表单,NewWidth,纵横,var,AspectRatio,NewHeight From: https://www.cnblogs.com/tulater/p/17922721.html