Main.Width und Height

[himitsu]

Wenn einwas auch nur ein Pixel zu klein ist, beim Ziehen, dann wird alles garnicht geändert,
außerdem springt es beim Ziehen in größeren Achritten, es sei denn du ziehst du Maus extrem langsam, womit es garnicht so leicht ist genau an diese Grenze ran zu kommen.

Ist dir an den Parametern was aufgefallen? (VAR)

Delphi-Quellcode:

procedure TMainForm.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean);
begin
  if NewHeight < 374 then NewHeight := 374;
  if NewWidth  < 636 then NewWidth  := 636;
end; 

// bzw.
NewHeight := Max(NewHeight, 374);
NewWidth  := Max(NewWidth, 636);

Aber wozu das Manuelle, wenn es auch automatisch geht?
Form.Contraints.MinHeight und MinWidth