Диалоговое окно, отображаемое методом Application.MessageBox
Если пользователь в нем нажмет кнопку Да, то приложение закрывается методом Application.Terminate. Обработчики событий OnActivate и OnDeactivate: procedure TForm1.ApplicationEvents1Activate( Sender: TObject); begin Label1.Caption := 'Уpa! Я работаю!'; end; procedure TForm1.ApplicationEvents1Deactivate( Sender: TObject); begin Label1.Caption: = 'Увы! Меня покинули!'; end; обеспечивают появление в метке Label1 соответствующей надписи каждый раз, когда пользователь переключается из данного приложения в другое и возвращается назад.
