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

Необходимо объявить обработчик события для WM_GETMINMAXINFO:

... 
private 
  procedure WMGetMinMaxInfo(var Message : TWMGetMinMaxInfo); 
  message WM_GETMINMAXINFO; 


А вот как выглядит сам обработчик:

procedure TForm1.WMGetMinMaxInfo(var Message : TWMGetMinMaxInfo); 
begin 
  Message.MinMaxInfo^.ptMinTrackSize := Point(Width, Height); 
  Message.MinMaxInfo^.ptMaxTrackSize := Point(Width, Height); 
end; 

Ремонт коттеджей, портфолио.

Открыта запись на курсы английского языка в Петербурге

---