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

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





Эксклюзивная традиционная видеокамера samsung в столице и других городах. ремонт блока магнитных головок салон на новокузнецкой автомобильный видеорегистратор москва .