{Перехватываем сообщение GetMinMaxInfo и устанавливаем минимальный размер окна, используя декларированные константы} procedure TForm1.WMGETMINMAXINFO( var message: TMessage ); var mStruct: PMinMaxInfo; begin mStruct := PMinMaxInfo(message.lParam); mStruct.ptMinTrackSize.x := HORIZONTALSIZE; mStruct.ptMinTrackSize.y := VERTICALSIZE; message.Result := 0; end;