Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по 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;

Кирпич М-100

База данных. Керамический кирпич, черепица, мансардные окна и др.

okz-07.ru
Беременность

Медицинские учреждения Москвы. Сказки, стихи, повести и пр.

baby.ru

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

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