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

Необходимо объявить обработчик события для WM_GETMINMAXINFO:

...

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;

Взято из http://forum.sources.ru
Примечание от Vit:
Начиная с Дельфи 5 появилось удобное свойство Constrains - специально для ограничесния минимальных и максимальных размеров...

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...