Закрытие приложения при его деактивации

Written on 18 Октября 2007. Posted in [Delphi] Приложение

Попробуйте следующий код:

procedure TForm1.AppDeactivate(Sender: TObject);
begin

close;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

Application.OnDeactivate := AppDeactivate;

end;