Определить, был ли переход на любое другое окно

[MyLastHit]

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

[Я_и]

Попробуй функцию

Form1.Focused

[Kotofff]

Если я правильно понял - нужно отловить событие потери фокуса формой ?

  protected
    procedure LastFocus(var Mess : TMessage); message WM_ACTIVATE;
    ...
    ...

procedure TForm1.LastFocus(var Mess : TMessage);
Begin
  if  Mess.wParam = WA_INACTIVE then
    begin
    // потеря  фокуса
    ....
    end
    else
    begin
    // восстановление  фокуса
    ....
    end;
  // продолжаем стандартный обработчик
  inherited;
end;

[Аватар]

а Form.OnDeactivate не устраивает?

[MyLastHit]

а Form.OnDeactivate не устраивает?

А как этот обработчик работает? Просто не пойму, при каких условиях он срабатывает...

[MyLastHit]

Если я правильно понял - нужно отловить событие потери фокуса формой ?

Ну да, даже больше - всем приложением(т.е. если у меня может быть 10 окон в моем Application, и если юзер решил уйти из апликэйшна, то программа должна знать об этом.)

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

[Sibedir]

Если для всего приложения, то так:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure AppDeactivate (Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.AppDeactivate (Sender: TObject);
begin
  Form1.Caption := TimeToStr (Now);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageDlg ('asdfgadsfasdf', mtInformation, [mbOK], -1);
end;

[MyLastHit]

А что это? Просто при нажатии на кнопку появляется мессага...

[Sibedir]

Ну да, а при потере приложением фокуса неняется Caption. Это сложно заметить.

[MyLastHit]

Класс, спасибо огромное))) с утра торопился и бегло просмотрел приложение. Теперь все понятно. Спасибо) Круть)