Как установить минимальный размер окна?
Материал из 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