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

Материал из DRKB

Как установить минимальный размер окна?[править | править код]

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


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

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


Source: Взято из http://forum.sources.ru
ID: 00414