В Delphi3 установить минимальный размер окна

ОГЛАВЛЕНИЕ    HOME  MAIL

...
private
  procedure WMGetMinMaxInfo(var Msg: TMessage); message
    WM_GETMINMAXINFO;
...
procedure TForm1.WMGetMinMaxInfo(var Msg: TMessage);
begin
  inherited;
  with PMinMaxInfo(Msg.LParam)^ do begin
    ptMinTrackSize.x := 100;
    ptMinTrackSize.y := 50;
    ptMaxTrackSize.x := 200;
    ptMaxTrackSize.y := 100;
  end;
end;