Процедура Abort |
Процедура аварийного завершения обработки события без вызова стандартного обработчика. Производится откат действия, вызвавшего событие.
prosedure Abort;
В данном примере контролируется размер введенной зарплаты. Контроль выполняется после модификации поля salary в момент выхода из него. Если введенное значение меньше значения поля minSalary, пользователю будет выдан запрос. Если пользователь не подтвердит правильность введенной информации, то он останется на этом поле для исправления ошибки.
HandleEvent cmCheckField: if(CurField=#salary and salary<minSalary) if(message('Зарплата меньше минимальной' + chr(13) + 'Вы уверены, что все правильно?',YesNo) <> cmYes) abort; end;