Закрытие формы при потере фокуса

[werrey]

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

Процедура TForm1.FormDeactivate(Sender: TObject); не подходит, так как не работает за пределами окна программы.
Нужно, чтобы при клике на любое открытое окно в системе или по рабочему столу форма закрывалась.

[mihali4]

А что, в хэлп заглянуть религия не позволяет ?
Там даже пример приведен...

OnDeactivate event (TApplication)
OnDeactivate, Minimize example

The following code minimizes an application when it’s deactivated. Note that AppDeactivate should be declared a method of TForm1.

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

procedure TForm1.AppDeactivate(Sender: TObject);
begin
  Application.Minimize;
end;

[werrey]

Спасибо Вам большое, хочу плюсик поставить, да не даёт система вашего форума.
Пойду спрошу на другом форуме, может там без тайн программирования ответят, или без интеллектуальной жадности!

[mihali4]

А что, все еще остались "непонятки" ?

[werrey]

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

А что, все еще остались "непонятки" ?

Ну я не спец как Вы, мне нужен полноценный пример, хотя я уже знаю, что Вы даёте только приблизительный ответ, для дальнейшими дошевелениями мозгами, но мне хотелось бы рабочий пример!

[mihali4]

Я дал полноценный пример...
Вам трудно поменять

Application.Minimize;

на

Close;

???
Ну, тогда я бессилен...

[ДралсяСошибками]

procedure TForm1.FormDeactivate(Sender: TObject);
begin
  close;
end;

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

[pastuhdima]

Создал таймер и прописал в MouseLeave(хотя это может быть и не обязательно)

procedure TForm1.FormMouseLeave(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if form1.focused=false then form1.close;
end;

[mihali4]

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

Создал таймер и ...[/CODE]

Вы хотя бы удосужились внимательно прочитать первый пост :

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

Нужно, чтобы при клике на любое открытое окно в системе или по рабочему столу форма закрывалась.

[Аватар]

Mihali4, но в первом посте в начале есть это

Подскажите пожалуйста, как сделать, чтобы при потере фокуса главная форма (или любая дочерняя) закрывалась

и оно в общем практически не противоречит

Нужно, чтобы при клике на любое открытое окно в системе или по рабочему столу форма закрывалась.

Хотя закрытие по таймеру не лучший вариант

ADD И вообще фокус не обязательно по клику на другое окно может уйти