Как установить минимальный размер окна? |
Previous Top Next |
Необходимо объявить обработчик события для WM_GETMINMAXINFO:
Code: |
... private {©Drkb v.3(2007): www.drkb.ru}
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; |
©Drkb::00414
Взято из http://forum.sources.ru
Примечание от Vit:
Начиная с Дельфи 5 появилось удобное свойство Constrains - специально для ограничесния минимальных и максимальных размеров...