Советы по 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]



Содержание раздела