|
Поместите следующую строку в секцию private класса, описывающего вашу форму: procedure WMGetMinMaxInfo(var Message : TWMGetMinMaxInfo); message WM_GETMINMAXINFO; ... и следующую функцию в секцию implementation вашего модуля: procedure YourClassNameHere.WMGetMinMaxInfo(var Message : TWMGetMinMaxInfo);
begin
{
Следующий код не позволяет пользователю изменять размеры формы и позволяет заменить Width и Height требуемыми вами минимальными/максимальными значениями. (Во всяком случае, идея видна).
}
Message.MinMaxInfo^.ptMinTrackSize := Point(Width, Height); Message.MinMaxInfo^.ptMaxTrackSize := Point(Width, Height); end; |