Создание кода - обработчика события.
Для того чтобы приложение выполняло вычисление при щелчке на кнопке Button1 с изображением символа "равно", следует написать код обработки этого события. Для создания кода обработки события следует воспользоваться страницей EVENTS (Событие) в окне Инспектора объектов.
Активизируйте объект Button1 и выберите на странице Событий событие OnClick (это событие нажатия левой кнопки мыши по данному объекту).
Произведите двойной щелчок на пустом поле списка этого события. После этого курсор помещается в окно Редактора кода. В этом окне в разделе interface находится запись процедуры обработчика события:
Procedure TForm1. Button1Click (Sender: TObject);
В разделе implementation располагается текст заготовки этой процедуры:
Procedure TForm1. Button1Click (Sender: TObject);
Begin
…
End;
Курсор будет находиться в пустой строке между ключевыми словами begin и end. Этот код является заготовкой для обработчика события, которую автоматически создала интегрированная среда Delphi.
Так как в задаче требуется выполнить сложение двух целых чисел, а результат их сложения также является целым числом, то в разделе описания переменных следует ввести следующее описание: var a, b, c: integer; - два слагаемых и сумма.
Так как в приложении для ввода чисел-слагаемых используются окна редактирования Edit1, Edit2, то необходимо при помощи процедуры StrToInt преобразовать строки в целые числа. Для вывода результата суммирования в окне редактирования Edit3 нужно преобразовать число в строку функцией IntToStr. Поэтому в основном теле процедуры обработки события следует ввести следующий текст:
a: = StrToInt (Edit1. text);
b: = StrToInt (Edit2. text);
c: = a + b;
Edit3. text: = IntToStr (c);
Целиком процедура обработки события щелчка на кнопке Button1 будет выглядеть следующим образом:
Procedure TForm1. Button1Click (Sender: TObject);
var a, b, c: integer;
Begin
a: = StrToInt (Edit1. text); {преобразование текстовой строки в целое число}
b: = StrToInt (Edit2. text);
c: = a + b;
Edit3. text: = IntToStr (c); {преобразование целого числа в текстовую строку}
End;
Запустите приложение на выполнение. Введите два слагаемых и, нажав кнопку с надписью "равно", запустите процедуру обработки события - вычисление суммы двух целых чисел.
Сохраните все изменения внесенные в проект и закройте его.