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