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

01.01.2007

Необходимо объявить обработчик события для 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;

Взято из https://forum.sources.ru

Примечание от Vit:

Начиная с Дельфи 5 появилось удобное свойство Constrains - специально для ограничесния минимальных и максимальных размеров...