Постоянный фокус на одной программе

[regman]

Вернулся я к примеру Пепел Феникса с помощью procedure AppDeactivate(Sender: TObject);

Вот код

procedure TForm1.FormCreate(Sender: TObject);
begin
  ...................
  Application.OnDeactivate := AppDeactivate;
  ....................
end;

procedure TForm1.AppDeactivate(Sender: TObject);
begin
  GetActiveTimer.Enabled:=True;
end;

procedure TForm1.GetActiveTimerTimer(Sender: TObject);
begin
  if Application.Active = false then
  begin
    Application.BringToFront;
    GetActiveTimer.Enabled:=False;
  end;
end;

Таймер срабатывает. Но только 1 раз почему-то. Тоесть жму на фоновое окно среды разработки Делфи - срабатывает таймер и моя прога опять становится активной и принимает комманды. Но если я опять щелкну мышью разок по фоне, то после этого никакой реакции. Что тут я упустил??

BaronTreep

Попробовал реализовать через GetKeyState. Вылез трабл следующий. Если передержать малость нажатой клавишу Ф2, то таймер сработает несколько раз. Выискивать нужный интервал срабатывания таймера - не выход.

[BaronTreep]

Конечно не выход. Решить можно так:

var
  Brk  : Boolean;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (-GetKeyState(VK_F4) in [127, 128]) then begin
     if not Brk then begin
        Brk  := True;
        ShowMessage('Press');
     end;
  end else
     Brk := False;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Brk := False;
end;

вместо ShowMessage ставьте ваш код, при нажатии он будет выполнятся только раз. Еще можно и вовсе избавится от таймера - создать отдельный поток и внём запустить цикл, но это не обязательно.

[Stilet]

Может всетки хук поставить и не париться?

[BaronTreep]

Хуки систему вешают - представьте сколько Windows приходится сообщений прокручивать, а тут ещё хуки все ставят...

[Stilet]

Хуки систему вешают

Глупости. Сколько ими пользовался никогда система в отказ не уходила.

[evg_m]

Сообщение от regman

procedure TForm1.GetActiveTimerTimer(Sender: TObject);
begin
  if Application.Active = false then
  begin
    Application.BringToFront;
    GetActiveTimer.Enabled:=False;
  end;
end;

Таймер срабатывает. Но только 1 раз почему-то.
Что тут я упустил??

Выделенная строка ОСТАНАВЛИВАЕТ таймер

[regman]

Сообщение от evg_m

Выделенная строка ОСТАНАВЛИВАЕТ таймер

он у меня активируется при деактивации самой формы

[evg_m]

а есть ли уверенность что деактивация формы происходит уже после выключения таймера.

[regman]

Сообщение от evg_m

а есть ли уверенность что деактивация формы происходит уже после выключения таймера.

какой-то вопрос непонятный.

есть код таймера, который стартует при запуске программы (однооконной).

OnTimer:
var
hc: hwnd;
begin
hc:=GetForegroundWindow;
if hc <> hw then SetForegroundWsndow(hw);
end;

OnCreate:
hw:=Form1.Handle;

Тоесть сравниваем хэндл главной формы и хэндл текущий.

Задача та же - держать прогу под фокусом поверх всех остальных приложений. Проблема - функция SetForegroundWsndow(hw) срабатывает первый раз нормально, а последующие нет, а именно - если теряется фокус целевой программы (например клик мышкой по фоновой программе), то во второй раз окно не становится активным, а только мигает на панели задач, а сам фокус остается на только что кликнувшей программе. Вопрос - почему не работает?? Я так понял изменяется еще кое-что в программе при потере фокуса, а что именно я не знаю.

На решение этой проблемы вроде бы натолкнулся здесь http://programmersforum.ru/showthread.php?t=14681, но предложенный код работает аналогично, тоесть изменений ноль.

SetWindowPos(tMain_form.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);

[BaronTreep]

Нужно только вот это написать:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if GetForegroundWindow <> Handle then
    SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE)
  else
    SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE);
end;

И ещё - в фокусе оказываются сразу два окна (такое впечатление). Могут быть глюки.