Порядок выполнения. Разработать приложение под названием «Лабораторная работа» с именем проекта FirstProject

Разработать приложение под названием «Лабораторная работа» с именем проекта FirstProject.. При нажатии на кнопку мышью, приложение должно закрываться. Форма такого приложения показана на рис. 3.1.

Окно редактора (белое окошко на рис. 3.1) и комментарий «Автор проекта …» должны заполняться соответствующим содержимым после щелчка мыши на клавише «Фамилия втора». При этом сама клавиша должна стать недоступной для повторного нажатия. Начальное значение строки редактора должно содержать название лабораторной работы. При нажатии на клавишу «Закрыть» приложение должно закрываться. Все надписи сделать цветными (кроме кнопок).

Рис.3.1. Пример интерфейса приложения к лабораторной работе 2.

Алгоритм программирования следующий:

1. Создать новый проект. Для этого необходимо либо просто открыть среду Delphi, либо, при старом открытом проекте, выполнить команду меню Delphi File → New Application, или нажать на кнопку Application.

2. В палитре компонент на странице Standard выбрать изображение кнопки – . Для этого необходимо щелкнуть на ее изображении левой кнопкой мыши. Затем, аналогичным образом, необходимо указать место на форме, где должна располагаться кнопка, т.е. – объект Button1 выбранного типа TButton.

3. Изменить имя формы. Щелкнуть мышью на форме (активизируем объект Form1), или в инспекторе объектов выберем Form1. На странице Properties выберем свойство Caption (заголовок), в правом поле которого, наберем его значение – Пример 2.1. Если мы захотим, например, изменить цвет окна приложения, то необходимо изменить значение свойства Color.

4. В инспекторе объектов выбрать второй и последний объект Button1, это же можно сделать щелчком мыши на кнопке, расположенной на форме. На странице Properties выберем свойство Caption, в правом поле которого, наберем его значение – Закрыть.

5. Открыть закладку Events (для объекта Bottun1) и установить событие onClick, т.е. «реагировать на нажатие кнопки мыши». Для этого необходимо дважды щелкнуть мышью в поле справа от события onClick или, дважды щелкнуть непосредственно на кнопке «Закрыть». Во втором случае для любого объекта выбирается первое событие из списка Events, обычно – это onClick. При этом обработчик события onClick получает имя Button1Click (его можно изменить на любое другое), а в текст формы в секцию implementation вставляется заготовка процедуры обработчика Button1Click. Эта процедура и является обработчиком события:

procedure TForm1.Button1Click(Sender: TObject);

Begin

end;

Параметр Sender передает в тело обработчика объект, который вызвал это событие. В данном случае – кнопку Button1.

6. Запрограммировать закрытие приложения. Для этого в теле процедуры Button1Click выполнить метод Close для главной формы. С закрытием главной формы закрывается и все приложение. При этом модуль Unit1.pas приобретает вид:

unit Unit1;