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

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

Взято из https://forum.sources.ru

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

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

Общие вопросы