窗体宽度和高度缩放只能同时操作？怎么弄

Question

就是用鼠标缩放窗体的时候，不能只缩放宽度，或者只能缩高度，只能进行斜角拉伸那样操作，同时缩放，该怎么弄呢？点最大化按钮，也是同时缩放

Answer 1

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  if (NewWidth = Width) or (NewHeight = Height) then
    Resize := False
  else
    Resize := True;
end;