Предохранить форму от перемещения и изменения размеров

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

private

    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;

   {...}
 implementation


 procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
 begin
   if ((Msg.CmdType and $FFF0) = SC_MOVE) or
     ((Msg.CmdType and $FFF0) = SC_SIZE) then
   begin
     Msg.Result := 0;
     Exit;
   end;
   inherited;
 end;

Код, который вы предоставили, - это метод для предотвращения перемещения или изменения размера формы, интерсептируя и модифицируя сообщение WMSysCommand.

Вот подробное описание того, что код делает:

1. Процедура WMSysCommand объявляется как приватный метод в классе формы.
2. Она переопределяет стандартную реализацию сообщения WMSysCommand, которая обычно обрабатывается фреймворком Delphi.
3. В процедуре она проверяет, соответствует ли тип команды (хранящийся в свойстве Msg.CmdType) ни одному из значений SC_MOVE или SC_SIZE.
4. Если команда - это операция перемещения или изменения размера, она устанавливает свойство Result сообщения TWMSysCommand в 0. Это эффективно отменяет операцию и предотвращает изменение формы.
5. Затем код вызывает метод наследника (inherited) для разрешения обработки события другими обработчиками сообщения WMSysCommand.

Цель этого кода - заблокировать форму, чтобы она не могла быть взаимодействована пользователем в определенных способах, таких как перемещение или изменение размера.

Альтернативное решение могло бы быть использование свойства FormBorderStyle и установкой его в значение, например, fsFixedDialog, что бы предотвратило изменение размера формы. Однако, это метод не полностью заблокировал форму, потому что пользователь все еще мог попытаться ее переместить.

Также стоит отметить, что этот код специфичен для Delphi и может не быть применимым в других программных средах.

В статье описывается способ предотвращения перемещения и изменения размеров формы в Delphi, используя обработку событий WM_SYSCOMMAND.

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

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

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