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

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

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;