Как установить минимальные размеры формы?
Если свойство BorderStyle установленно в значение bsSizeable, то размер
формы можно уменьшать или увеличивать. Иногда, чтобы показывать все необходимые
элементы на форме, необходимо установить минимальные размеры формы? Следующая
процедура позволяет ограничить размеры формы.
type
TForm1 = class(TForm)
procedure wmGetMinMaxInfo(var Msg : TMessage); message wm_GetMinMaxInfo;
procedure TForm1.wmGetMinMaxInfo(var Msg : TMessage);
begin
PMinMaxInfo(Msg.lParam)^.ptMinTrackSize.X := 600;
PMinMaxInfo(Msg.lParam)^.ptMinTrackSize.Y := 350;
end;