Форма выше всех других форм

Delphi , Программа и Интерфейс , Формы

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

with Self do {Form1,...}
   SetWindowPos(Handle, // handle to window 
               HWND_TOPMOST, // placement-order handle {*} 
               Left,  // horizontal position 
               Top,   // vertical position 
               Width,
                Height,
                // window-positioning options 
               SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);

 {* Other Values: }
 HWND_BOTTOM
 Places the window at the bottom of the Z order.
 HWND_NOTOPMOST
 Places the window above all non-topmost windows
 HWND_TOP
 Places the window at the top of the Z order.
 HWND_TOPMOST
 Places the window above all non-topmost windows.
 The window maintains its topmost position even when it is deactivated.

Программный код на языке Delphi, который устанавливает окно в виде always-on-top над другими формами.

Обзор того, что код делает:

1. with Self do {Form1,...}: Это начало блока кода, который работает с текущим объектом (Self), предположительно это форма Delphi. Часть {...} вероятно предназначена для хранения более кода позднее.
2. SetWindowPos(Handle, ..., SWP_...);: Это вызов Windows API-функции SetWindowPos. Он принимает несколько параметров:
3. Handle: Обратный handle окна, которое необходимо обработать (вероятно, это Self.Handle в этом случае).
4. HWND_TOPMOST: Параметр порядка расположения. В этом случае он установлен в HWND_TOPMOST, что означает, что окно будет располагаться над всеми не-топовыми окнами.
5. Left, Top, Width и Height: Позиция и размер окна (не используются в этом конкретном коде).
6. SWP_...: Сочетание параметров позиционирования окон. В этом случае он установлен в битовой операции OR трех параметров:
   • SWP_NOACTIVATE: Прекращает активацию окна.
   • SWP_NOMOVE: Прекращает изменение позиции окна.
   • SWP_NOSIZE: Прекращает изменение размера окна.

Альтернативное решение для этого проблемы может быть использование встроенной функциональности Delphi, конкретно метода BringToFront формы. Это достигнет того же результата без необходимости вызывать Windows API-функцию:

Self.BringToFront;

Этот код проще и более специфичен для Delphi, чем оригинальное решение, но может не быть столь гибким, если вам нужно установить конкретные позиции или размеры окон.

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

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

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

:: Главная :: Формы ::