Подписаться на RSS рассылку
Главная » Статьи по Delphi » Программа и интерфейс » Как ограничить максимальный и минимального размера окна

Как ограничить максимальный и минимального размера окна

Автор: Борисов Сергей

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

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

ptMaxSize Размер окна при его максимизации.

ptMaxPosition Положение левого верхнего угла окна при его максимизации.

ptMaxTrackSize Максимальный размер окна при увеличении его размеров.

ptMinTrackSize Минимальный размер окна при уменьшении его размеров.


Пример:

public
procedure WMGetMinMaxInfo(var M:TWMGetMinMaxInfo);message WM_GetMinMaxInfo;

...

Procedure TForm1.WMGetMinMaxInfo(var M: TWMGetMinMaxInfo);
Begin
  {координата X}
  M.MinMaxInfo^.PTMaxSize.X := 800;
  M.MinMaxInfo^.PTMaxPosition.X := 0;

  M.MinMaxInfo^.PTMaxTrackSize.X := 800;
  M.MinMaxInfo^.PTMinTrackSize.X := 300;

  {координата Y}
  M.MinMaxInfo^.PTMaxSize.Y := 600;
  M.MinMaxInfo^.PTMaxPosition.Y := 0;

  M.MinMaxInfo^.PTMaxTrackSize.Y := 600;
  M.MinMaxInfo^.PTMinTrackSize.Y := 200;
end;

Просмотров: 9493

Обсудить на форуме

0   Спам
(17.02.2011)
4. small
А если не указывать Max-размеры ошибки не будет?

0   Спам
(17.07.2010)
3. Kirill7777
помогло!

0   Спам
(04.05.2010)
2. RedWoLF
Спасибо бльшое!!! То что надо

0   Спам
(27.06.2009)
1. small keds
спс)))


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта