Вопрос и Ответ 33 < Вопросы и Ответы по Delphi < Delphi

Новые книги

В отличие от множества трудов, посвященных руководству проектами и командами, в этой книге не проповедуются никакие новые учения и не превозносятся великие теории. Скотт Беркун считает залогом успеха практику и разнообразие подходов. В книге описываются основные сложности и проблемные ситуации, возникающие в работе менеджера проекта, даны рекомендации по выходу из них.

Издание предназначено не только для лидеров команд и менеджеров высшего звена, но и для программистов, тестеров и других исполнителей конкретных проектных заданий. Также оно будет полезно студентам, изучающим бизнес-менеджмент, проектирование изделий или программную инженерию.

Текст нового издания значительно переработан автором с целью добиться большей ясности, кроме того, книга дополнена новым приложением и более чем 120 практическими упражнениями.

Денежный поток из Интернета

Специально для вас! Секреты и стратегии от предпринимателей и бизнесменов, признанных экспертов и лидеров, лучших тренеров и коучей Рунета, благодаря которым сегодня сотни тысяч людей уже изменили свою жизнь, перешли на новые уровни доходов, а главное – нашли время на любимые занятия и близких.

Известные тренеры объединили всю ценную информацию в программе конференции, лучшие материалы которой вошли в эту книгу.

Вопрос и Ответ 33

Версия для печати

Вопросы и Ответы

33. Существет ли способ ограничения максимального и минимального размера окна?

Перед изменением размера окна Windows посылает сообщение wm_GetMinMaxInfo, перехватив которое, можно устанавливать необходимые размеры окна.

Ограничение на размеры окна содержатся в структуре типа TMinMaxInfo. Для установки новых ограничений достаточно изменить соответствующие значения. В таблице описаны используемые поля данной структуры:

Поле	Описание
ptMaxSize	Размер окна при его максимизации.
ptMaxPosition	Положение левого верхнего угла окна при его максимизации.
ptMaxTrackSize	Максимальный размер окна при увеличении его размеров.
ptMinTrackSize	Минимальный размер окна при уменьшении его размеров.

Пример:

............

public

............
PROCEDURE WMGetMinMaxInfo(VAR M: TWMGetMinMaxInfo); MESSAGE WM_GetMinMaxInfo;

end;

............

{Установка новых ограничений}
PROCEDURE TForm1.WMGetMinMaxInfo(VAR M: TWMGetMinMaxInfo);
BEGIN

{Выполнение предварительно определенного метода}
inherited;
{координата X}
M.MinMaxInfo^.PTMaxSize.X := 400;
M.MinMaxInfo^.PTMaxPosition.X := 100;
M.MinMaxInfo^.PTMaxTrackSize.X := 500;
M.MinMaxInfo^.PTMinTrackSize.X := 300;
{координата Y}
M.MinMaxInfo^.PTMaxSize.Y := 250;
M.MinMaxInfo^.PTMaxPosition.Y := 100;
M.MinMaxInfo^.PTMaxTrackSize.Y := 300;
M.MinMaxInfo^.PTMinTrackSize.Y := 200;

END;

............

...предыдущая страница следующая...
оглавление