Стандартные события менеджера событий

Запрос на завершение приложения

  • Код события: -1
  • Выполняемые действия: определяются назначенным обработчиком.

 

Немедлненное завершение приложения

  • Код события: -2
  • Выполняемые действия: прекращает выполнение приложения, передает управление в систему.

 

Пример

Программа выполняет бесконечный цикл. При нажатии клавиши Esc, или кнопки 'Закрыть окно' прекращает работу. Обработчик стандартного события -1 QExit – запрашивает у пользователя подтверждение на завершение работы и, если подтверждение получено завершает программу.

 

! Основная программа

! Программа выполняет завершение при нажатии клавиши ESC

! и кнопки 'закрытие окна приложения'

system sims ! только для CheckKey

print "Start"

Actions.AddHnd("QExit", -1) ! Указываем обработчик события 'Запрос на завершение'

key = 0

repeat

  CheckKey

  CheckKey key

  if key = 27 then Call QExit ! Чтобы всегда выходить по одному пути

until 1 = 2     ! Условие, которое не выполняется. Для наглядности примера

end

 

!============================================================================!

!============================================================================!

 

! Подпрограмма обработки события 'Запрос на завершение'

sub QExit

  input "Выход ? (Y/N) ", as$

  if as$ = "Y" or as$ = "y" then

    Actions.SendMsg(-2) ! безусловное завершение работы приложения

subend

 

См. также:

Менеджер событий