Предохранить форму от сворачивания

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

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

 implementation

 procedure TForm1.WMShowWindow(var Msg: TWMShowWindow);
 begin
   if not Msg.Show then
     Msg.Result := 0
   else
     inherited;
 end;

Перевод:

Код на Delphi предназначен для предотвращения минимизации формы при вызове функции "Минимизировать все окна" в панели задач Windows.

Сообщение WMShowWindow отправляется Windows всякий раз, когда изменяется видимость окна, включая момент минимизации или восстановления. Процедура TForm1.WMShowWindow переопределяет это поведение по умолчанию для формы.

Вот что происходит в коде:

• Если Msg.Show равен False, то означает, что окно не должно быть показано (например, потому что оно было минимизировано). В этом случае код устанавливает Msg.Result в 0, эффективно предотвращая операцию минимизации.
• Если Msg.Show равен True, то означает, что окно должно быть показано. В этом случае код вызывает метод, наследуемый от него (inherited;), чтобы позволить происходить по умолчанию.

Таким образом, этот код обеспечивает, что даже при вызове функции "Минимизировать все окна" форма не будет минимизирована, если у нее нет кнопки минимизации.

Вот альтернативное решение:

Вы можете также использовать свойство FormStyle вашей формы. Установите его в fsNormal или fsSizeable, чтобы предотвратить минимизацию формы.

procedure TForm1.FormCreate(Sender: TObject);
begin
  FormStyle := fsNormal; // или fsSizeable
end;

Эта APPROACH проще и более элегантна, но достигает того же результата.

В статье описывается способ предотвратить минимальизацию формы Windows с помощью кода, который блокирует вызов функции 'Минимизировать все окна' из задачной панели.

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

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

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