13. Создайте обработчик события для командной кнопки Button1.

Для программирования кнопки Button1 необходимо два раза щелкнуть на ней левой клавишей мыши. В результате активизируется окно текста программы с заготовкой процедуры Button1Click, которая будет обрабатывать событие щелканья на кнопке Button1. В заготовку надо вставить текст программы реакции на это событие. Процедура может иметь вид:

procedure TForm1.Button1Click(Sender: TObject); begin

Button1.Caption:=’+’; end;

13. Создайте обработчик события для командной кнопки Button2.

Для этого создайте для кнопки Button2 обработчик события OnClick (получающего управление при щелчке мыши на этой кнопке и при нажатии клавиш Enter и пробел, когда кнопка имеет фокус), который будет суммировать числа из полей Edit1 и Edit2 и записывать результат в поле ввода Edit3, выполнив следующие действия:

а) Создайте шаблон обработчика события OnClick.

в) Добавьте в его тело операторы преобразования текста из поля ввода Edit1 в

число r1, а если в поле не число, то выдачи сообщения об ошибке и выход

из обработчика:

s1:=Edit1.Text;

Val(s1,r1,k); if k<>0 then

begin Application.MessageBox( 'Первый операнд должен быть числом!', 'Open Error', MB_OKCANCEL + MB_DEFBUTTON1); exit end;

с) Далее добавьте операторы аналогичной обработки текста из поля ввода

Edit2 в число r2, а если в поле не число, то выдачи сообщения об ошибке и

выход из обработчика.

d) Добавьте далее операторы:

r3:=r1+r2; //вычисление суммы s3:=FloatToStr(r3); //преобразование числа в строку k:=Pos(',',s3); //проверка, используется ли разделитель запятая между if k>0 then //целой и дробной частями числа, и замена ее на точку. begin

Delete(s3,k,1); Insert('.',s3,k); end; Edit3.Text:=s3; //запись результата в поле ввода Edit3

13. Проверьте работу программы, используя только клавиатуру (перемещение фокуса между УЭ-тами можно выполнять клавишами Tab и Shift+Tab).