Размеры MDI-окна

Поместите следующую строку в секцию 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;

 
« Предыдущая статья   Следующая статья »