TButton и завершение программы

Поместите кнопку TButton в нижнюю часть формы. Теперь растяните Инспектор Объектов так, чтобы свойства Name и Caption были видны одновременно на экране. Теперь измените имя кнопки на Terminate. Заметьте, что заголовок (Caption) поменялся в тот же момент. Такое двойное изменение наблюдается только если ранее не изменялось свойство Caption.

Текст, который Вы видите на поверхности кнопки - это содержимое свойства Caption, свойство Name служит для внутренних ссылок, Вы будете использовать его при написании кода программы. Если Вы откроете сейчас окно Редактора, то увидите следующий фрагмент кода:

TForm1 = class(TForm)    Edit1: TEdit;    Memo1: TMemo;    bt_Terminate: TButton; private    { Private declarations } public    { Public declarations } end;

В этом фрагменте кнопка TButton называется bt_Terminate из-за того, что Вы присвоили это название свойству Name. Заметьте, что TMemo имеет имя, которое присваивается по умолчанию.

Перейдите на форму и дважды щелкните мышкой на объект TButton. Вы сразу попадете в окно Редактора, в котором увидите фрагмент кода вроде этого:

procedure TForm1.bt_TerminateClick(Sender: TObject);   begin   end;

Данный код был создан автоматически и будет выполняться всякий раз, когда во время работы программы пользователь нажмет кнопку bt_Terminate. Таким образом, Вы создали обработчик события одиночного нажатия на кнопку. Вдобавок, Вы можете видеть, что определение класса в начале файла теперь включает ссылку на метод bt_TerminateClick:

TForm1 = class(TForm)   Edit1: TEdit;   Memo1: TMemo;   Terminate: TButton; procedure bt_TerminateClick(Sender: TObject);    private     { Private declarations }    public     { Public declarations }    end;

Изначально Вы смотрите на кнопку на форме. Вы делаете двойной щелчок на эту кнопку, и соответствующий фрагмент кода автоматически заносится в Редактор.

Теперь самое время написать строчку кода. Это очень простой код, состоящий из одного слова Close:

procedure TForm1.bt_TerminateClick(Sender: TObject); begin   Close; end;

Когда этот код исполняется, то главная форма (значит и все приложение) закрывается. Для проверки кода запустите программу и нажмите кнопку Terminate. Если все сделано правильно, программа закроется и Вы вернетесь в режим дизайна.

Задания на разработку:

1. Создайте приложение, которое завершает работу при нажатии на кнопку (см. описание выше).

2. Создайте приложение, в котором при нажатии на кнопку выводится информация на форму.

1. Поместите на форму кнопку TButton и компонент TLabel (страница Standard Палитры Компонентов). 2. Задайте новые уникальные имена этим объектам. 3. Создайте обработчик события одиночного нажатия на кнопку. 4. В Редакторе кода в процедуре обработки события задайте

Имя_объекта_TLabel.Caption :='Hello World!'

5. Сохраните проект с уникальным именем в отдельной папке и запустите приложение.

Таким образом, при нажатии на кнопку на форме выведется надпись 'Hello World!'.

3. Создайте приложение, в котором при нажатии на кнопку изменяются размеры и положение данной кнопки на форме.

4. Создайте приложение, в котором по нажатии на кнопки показывается и скрывается объекты TMemo и TEdit.