╩αΩ ≤±≥αφεΓΦ≥ⁿ ∞ΦφΦ∞αδⁿφ√σ ≡ατ∞σ≡√ ⌠ε≡∞≤δ ≡α?

┼±δΦ ±ΓεΘ±≥Γε BorderStyle ≤±≥αφεΓδσφφε Γ τφα≈σφΦσ bsSizeable, ≥ε ≡ατ∞σ≡ ⌠ε≡∞≤δ ≡α ∞εµφε ≤∞σφⁿ°α≥ⁿ ΦδΦ ≤ΓσδΦ≈ΦΓα≥ⁿ. ╚φεπΣα, ≈≥εß√ ∩εΩατ√Γα≥ⁿ Γ±σ φσεß⌡εΣΦ∞√σ ²δσ∞σφ≥√ φα ⌠ε≡∞σ, φσεß⌡εΣΦ∞ε ≤±≥αφεΓΦ≥ⁿ ∞ΦφΦ∞αδⁿφ√σ ≡ατ∞σ≡√ ⌠ε≡∞≤δ ≡α? ╤δσΣ≤■∙α ∩≡ε÷σΣ≤≡α ∩ετΓεδ σ≥ επ≡αφΦ≈Φ≥ⁿ ≡ατ∞σ≡√ ⌠ε≡∞≤δ ≡α.



type
  TForm1 = class(TForm)
    procedure wmGetMinMaxInfo(var Msg : TMessage); message wm_GetMinMaxInfo;

procedure TForm1.wmGetMinMaxInfo(var Msg : TMessage); 

begin
  PMinMaxInfo(Msg.lParam)^.ptMinTrackSize.X := 600;
  PMinMaxInfo(Msg.lParam)^.ptMinTrackSize.Y := 350;
end;

╤εΓσ≥√ φα≈Φφα■∙Φ∞