Советы по Delphi
Размеры 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; |
[001767]
