Для запрещения увеличения окна можно отключить кнопки управления окном в свойствах формы, сделать толщину бордюра формы равной 0 (для запрещения увеличения мышью) и отслеживать события увеличения окна.
Другой способ: вы должны перехватывать сообщение WM_GETMINMAXINFO
вот листинг из Delphi World
Код:
private
{ Private declarations }
procedure WMGetMinMaxInfo(var Info: TWMGetMinMaxInfo); message wm_GetMinMaxInfo;
implementation
{$R *.DFM}
procedure TForm1.WMGetMinMaxInfo(var Info:TWMGetMinMaxInfo);
begin
with Info.MinMaxInfo^ do
begin
ptMinTrackSize.x := 400;
ptMinTrackSize.y := 200;
ptMaxTrackSize.x := 400;
ptMaxTrackSize.y := 200;
ptMaxPosition.x := BoundsRect.Left;
ptMaxPosition.y := BoundsRect.top;
end;
inherited;
end;