Как узнать что твоя программа потеряла фокус?

[chandrasecar]

Как узнать что твоя программа потеряла фокус, когда пользователь переключается на какое-нибудь другое приложение (onDeactivate не подходит, программа имеет много окон, которые одновременно могут быть открыты)? И в результате этого программа должна выполнять какое-то действие (код).

[Terran]

Можете использовать функцию GetForegroundWindow.
Но лучше всего делать так:

 Private
    { Private declarations }
    Procedure LastFocus(Var Mess : TMessage);
    Message WM_ACTIVATE;
...
Procedure TForm1.LastFocus(Var Mess : TMessage);
Begin
If Mess.wParam = WA_INACTIVE Then
Form1.Color:=ClInactiveCaption
Else
Form1.Color:=ClActiveCaption;
Inherited;
End;

[chandrasecar]

Спасибо, но это немного не то. Что если в приложении много окон и мы переходим от одного к другому, то будет постоянно выполняться этот код в зависимости от того, к какмому окну мы его припишем. Нужно отлавливать событие, когда фокус переводится на другое открытое приложение (в т.ч. рабочий стол, меню и панель пуск), а не окно нашего приложения. И в этом случае выполнять определенный код. Ведь можно так?

[Neeter]

Это должно помочь:

 Private
    { Private declarations }
    Procedure LastFocus(Var Mess : TMessage);
    Message WM_ACTIVATEAPP;
...
Procedure TForm1.LastFocus(Var Mess : TMessage);
Begin
If Mess.wParam = WA_INACTIVE Then
Form1.Color:=ClInactiveCaption
Else
Form1.Color:=ClActiveCaption;
Inherited;
End;

[regman]

как постоянно держать программу активной?? То есть чтобы фокус с нее не уходил?? Или при потере фокуса возвращать его обратно на главное окно программы (программа однооконная)??

BringToFront подходит???

[Stilet]

как постоянно держать программу активной??

См. предидущий пост.

[lennon]

а это разве в этом разделе надо было писать? тут раздел про апи функции виндовса.

[Stilet]

тут раздел про апи функции виндовса.

А сообщения разве к WIN API не относятся?

[regman]

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

private
Procedure SetMainFocus(Var Mess : TMessage);
Message WM_ACTIVATEAPP;
........................
procedure TForm1.SetMainFocus(Var Mess : TMessage);
begin
If Mess.wParam = WA_INACTIVE Then
SetForegroundWindow(Form1.Handle);
End;

[regman]

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

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

OnCreate:
hw:=Form1.Handle;

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

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