Interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TForm1 = class(TForm)

GroupBox1: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

procedureButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

...

Когда мы создаем новую форму, Delphi автоматически создает для этой формы новый классTForm1, порожденный от базового классаTForm (строчкаtypeTForm1 =class(TForm)). Далее, когда мы добавляем на нашу форму различные компоненты,Delphi генерирует для них имена по умолчанию и добавляет их описания в определение нового класса. Таким образом у нас получаются объектыLabel1, Label2, Label3, Edit1, Edit2, Edit3 и т.д. Аналогично, когда мы создаем обработчик для какого-либо события,Delphi также добавляет его описание в определение класса.

В обработчике события мы можем обратиться к любому объекту, принадлежащему данному классу (например, строке редактирования), по имени. А чтобы изменить какое-то свойство данного объекта, надо записать имя этого свойства через точку после имени объекта. Таким образом, строчка Edit1.Text := ‘Сидоров’ меняет содержимое (свойство Text)первой строки редактирования на указанную строку.

Создание обработчика для кнопки «Очистить»

• Переключитесь на форму (клавиша F12) и создайте обработчик для кнопки «Очистить», дважды щелкнув по ней на форме.Delphi сгенерирует заготовку для обработчика события с именемButton2Click.

• Напишите следующие 3 строчки кода, которые будут осуществлять очистку строк ввода:

procedureTForm1.Button2Click(Sender: Tobject);

begin

Edit1.Text := ‘’;

Edit2.Text := ‘’;

Edit3.Text := ‘’;

end;

• Запустите программу на выполнение и убедитесь, что обработчики кнопок «Заполнить» и «Очистить» действуют правильно.

Создание обработчика для кнопки «в заголовок»

• Создайте обработчик для кнопки «В заголовок», дважды щелкнув по этой кнопке на форме. Delphi сгенерирует заготовку для обработчика события с именемButton3Click.

• Напишите строчку кода, которая будет изменять заголовок нашей программы:

procedureTForm1.Button3Click(Sender: Tobject);

begin

Caption := Edit1.Text + ' ' + Edit2.Text + ' ' + Edit3.Text;

end;

Здесь мы склеиваем в одну строку содержимое 3-х строк ввода (плюс добавляем разделительные пробелы для удобочитаемости) и присваиваем ее заголовку формы (свойствоCaption).

Замечание. Поскольку процедура обработчика события принадлежит классу формы, то внутри этого процедуры при обращении к свойствам самой формы имя формы можно опускать. Поэтому мы написалиCaption вместо полной записи Form1.Caption, которая также верна, а, в некоторых случаях, и более понятна.

• Запустите программу на выполнение и убедитесь, что обработчик кнопки «В заголовок» работает правильно.

Создание обработчика для кнопки «Выход»

• Создайте обработчик для кнопки «Выход», дважды щелкнув по этой кнопке на форме. Delphi сгенерирует заготовку для обработчика события с именемButton5Click.

• Напишите единственную строчку, которая осуществляет выход из программы:

procedureTForm1.Button5Click(Sender: Tobject);

begin

Close;

end;

Здесь мы обращаемся к процедуре Close, определенной для класса TForm, которая приводит к закрытию соответствующей формы. Если же закрываемая форма является главной, то завершает работу все приложение. Опять мы используем краткую запись вместо полнойForm1.Close.

• Запустите программу на выполнение и убедитесь, что обработчик кнопки «Выход» работает правильно.