Советы по Delphi
Закрытие приложения при его деактивации
Попробуйте следующий код:
|
procedure TForm1.AppDeactivate(Sender: TObject); begin close; end; procedure TForm1.FormCreate(Sender: TObject); begin Application.OnDeactivate := AppDeactivate; end; |
[001727]
