Наставляем мышь на окно, и оно выносится на передний план

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

procedure TForm1.Timer1Timer(Sender: TObject);
var
  p: TPoint;
begin
  GetCursorPos(p);
  SetForegroundWindow(WindowFromPoint(p));
end;

Перевод:

Код, который вы предоставили, - это процедура, которая обрабатывает событие таймера для компонента Timer на форме в Delphi. Эта процедура перемещает курсор мыши в передний план и приносит его к фронту, когда таймер срабатывает.

Рассказ о том, что код делает:

1. GetCursorPos(p); - эта строка получает текущее положение курсора мыши в координатах экрана и хранит его в переменной p.
2. SetForegroundWindow(WindowFromPoint(p)); - эта строка устанавливает передний план для окна, содержащего точку, указанную в p. Функция WindowFromPoint возвращает.handle к окну на указанной точке, а SetForegroundWindow делает это окно активным.

Пример использования кода:

Предположим, у вас открыты несколько окон на вашем рабочем столе, включая веб-браузер, клиент электронной почты и процессор текста. Вы хотите автоматизировать задачу, которая требует принесения одного из этих окон к фронту при наступлении определенного события (например, при получении электронной почты). В этом случае вы можете настроить компонент Timer на вашей форме с коротким интервалом (например, 100 миллисекунд) и прикрепить эту процедуру к его событию OnTimer. Когда таймер срабатывает, он переместит курсор мыши в передний план и принесет его к фронту.

Альтернативное решение, которое достигает того же результата без использования функции GetCursorPos:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  SetForegroundWindow(FindWindow(nil, 'Заголовок окна, который вы хотите принести к фронту'));
end;

В этом коде замените 'Заголовок окна, который вы хотите принести к фронту' на заголовок окна, который вы хотите принести к фронту. Функция FindWindow возвращает.handle к первому верхнему уровню окну с указанным именем класса и текстом окна, а SetForegroundWindow делает это окно активным.

Замечание: Альтернативное решение требует уникального заголовка окна, или оно найдет первый окно с этим заголовком. Если вам нужно принести несколько окон с тем же заголовком к фронту, вам может потребоваться другой подход.

В статье описывается простой алгоритм, который позволяет настроить программу для автоматического смены активного окна компьютера при помощи мыши.

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

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

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