Стр. 88 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
88
Теперь введем в одно из полей редактирования какой–нибудь текст, на-
пример сто и нажмем на кнопку Пересчет. В результате ошибочного ввода ин-
формации (должно быть число) работа программы будет остановлена и появит-
ся следующее сообщение (рис. 5.11).
Рис. 5.11
Нажмем кнопку OK, а затем выполним действия Run→Program Reset
или Ctrl+F2 . В результате этих действий приложение прекращает свою работу.
Для того чтобы избежать подобного в дальнейшем, нужно в поле Edit1
вводить только целое число, а в поле Edit2 – вещественное (дробное) число.
8. В инспекторе объектов для компонента Edit1 создадим процедуру
Edit1KeyPress для обработки события OnKeyPress – нажатие клавиши в поле
редактирования Edit1 (рис. 5.12).
Рис. 5.12 Рис. 5.13
Оформим процедуру Edit1KeyPress следующим образом.
//процедура выполняется при нажатии кнопки в поле
// редактирования, а в key возвращается нажатая клавиша
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin