Как узнать, что форма готовится изменить размеры

Delphi , Программа и Интерфейс , Размеры и Положение

{Перехватываем сообщение GetMinMaxInfo и
 устанавливаем минимальный размер окна,
 используя декларированные константы}
procedure TForm1.WMGETMINMAXINFO( var message: TMessage );
var
  mStruct: PMinMaxInfo;
begin
  mStruct := PMinMaxInfo(message.lParam);
  mStruct.ptMinTrackSize.x := HORIZONTALSIZE;
  mStruct.ptMinTrackSize.y := VERTICALSIZE;
  message.Result := 0;
end;

Here's the translation of the text into Russian:

Код на Delphi! В этом коде обрабатывается сообщение WM_GETMINMAXINFO, чтобы установить минимальный размер окна (формы).

Сообщение WM_GETMINMAXINFO отправляется Windows в окно, когда оно нужно определить его минимальные и максимальные размеры. В этом случае форма отвечает на это сообщение, устанавливая свой собственный минимальный размер.

В подробностях происходит следующее: 1. Процедура TForm1.WMGETMINMAXINFO вызывается в результате получения сообщения WM_GETMINMAXINFO. 2. Переменная mStruct объявлена как указатель на структуру MinMaxInfo, которая является типом данных Windows, содержащим информацию о минимальных и максимальных размерах окна. 3. Выражение PMinMaxInfo(message.lParam) используется для кастинга поля lParam рекорда TMessage (который содержит параметры сообщения) в структуру MinMaxInfo. Это позволяет доступиться к полям структуры MinMaxInfo. 4. Поле ptMinTrackSize структуры MinMaxInfo устанавливается в HORIZONTALSIZE и VERTICALSIZE, которые, вероятно, являются константами, определенными в другом месте кода. Эти значения представляют минимальный размер, до которого окно может быть изменено в каждом направлении (горизонтальном и вертикальном соответственно). 5. Наконец, поле message.Result устанавливается в 0, что указывает на то, что форма успешно обработала сообщение WM_GETMINMAXINFO.

Чтобы ответить на ваш вопрос, вы можете узнать, когда форма собирается изменить свой размер:

• Используя событие OnSize формы, которое вызывается каждый раз, когда размер формы изменяется.
• Мониторинг сообщения WM_SIZE, отправляемого форме, что указывает на то, что размер формы изменился.
• В этом конкретном случае вы также можете использовать сообщение WM_GETMINMAXINFO для обнаружения, когда форма изменяется, и проверить, падает ли новый размер формы в пределах минимальных и максимальных размеров, установленных формой.

Статья описывает способ обнаружения изменения размеров формы в приложении Windows, путем перехвата сообщения GetMinMaxInfo и установки минимального размера окна с помощью декларированных констант.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Размеры и Положение ::