Задания. Практическая работа 2

Практическая работа 2. Программное изменение свойств объектов

Эту работу необходимо выполнять под руководством учителя или предварительно просмотрев видеоурок «Программное изменение свойств объектов» бесплатного видеокурса по Delphi 7

Задания

1. Запустите среду программирования (Пуск, Все программы, Borland Delphi 7, Delphi 7)

2. Разместите на форме компоненты Button, Label, Edit (см. рисунок)

3. У каждого компонента имеется свойство Name (имя компонента). Найдите ее в Инспекторе объектов для каждого объекта и заполните таблицу:

Компонент	Свойcтво Name
Форма
Кнопка
Метка
Текстовое поле

4. Если мы запустим программу и щелкнем мышью по кнопке, то произойдет событие – щелчок мыши на кнопке. Delphi позволяет обрабатывать события, то есть программировать то, что будет происходить при возникновении события. Для этого нужно вносить изменения в код программы, то есть дописывать программу, которую Delphi написала вместо нас.

Пример. Допустим, мы хотим, чтобы, когда мы щелкнули по кнопке, заголовок формы изменился на «ага, оно работает».

Решение. Форма имеет имя Form1, у формы есть свойство Caption, которое задает ее заголовок. Итак, объект Form1 имеет свойство Caption. Когда мы будем писать программу, будем обозначать свойство Caption объекта Form1 так: Form1.Caption (между Form1 и Caption ставится точка).

Для программирования события выполните следующее.

1) Выделите кнопку (Button).

2) Перейдите в Инспекторе объектов на вкладку Events (События).

Найдите событие OnClick (при щелчке). Событие OnClick кнопки Button1 возникает тогда, когда пользователь щелкнет по ней. Щелкните дважды мышью в пустом текстовом поле напротив свойства (см. рис. вверху).

3) Произойдет переход в окно кода, в котором появятся следующие строки:

Напишите между словами begin и end:

Запустите программу. Щелкните мышью по кнопке. Что происходит? _________________________
_____________________________________________________________________________________

5. Добавьте после строчки, которую вы написали в предыдущем задании, строчку

Form1.Color:=clYellow;
(вместо clYellow можно написать clBlue, clCyan, clRed, clMagenta и т.д.)

Запустите программу. Щелкните мышью по кнопке. Что происходит? _________________________
_____________________________________________________________________________________

6. Добавьте туда же еще одну строчку:

Button1.Caption:=’OK’;

Запустите программу. Щелкните мышью по кнопке. Что происходит? _________________________
_____________________________________________________________________________________

7. В Инспекторе объектов найдите свойство Text объекта Edit1 и установите его пустым.

Найдите свойство Caption объекта Label1 и установите его «Хорошая программка».
Добавьте в процедуру следующую строчку:

Edit1.Text:=Label1.Caption;

Запустите программу. Щелкните мышью по кнопке. Что происходит? _________________________
_____________________________________________________________________________________

8. Задание для самостоятельной работы.

Создайте на форме еще одну кнопку, подпишите ее «Установить заголовок» и сделайте так, чтобы при клике по этой кнопке заголовок формы (Form1.Caption) становился таким же, как надпись в текстовом поле (Edit1.Text).
Напишите команду, которую вы вписали в процедуру обработки события:
_____________________________________________________________________________________

9. Найдите для метки Label1 событие OnMouseMove (возникает, когда курсор мыши двигается над объектом) на вкладке Events Инспектора объектов.
Создайте процедуру ее обработки двойным щелчком мыши.
Напишите в этой процедуре команду Label1.Font.Color:=clBlue;

Найдите для метки Label1 событие OnMouseLeave (возникает, когда курсор мыши оставляет объект) на вкладке Events Инспектора объектов.
Создайте процедуру ее обработки двойным щелчком мыши.
Напишите в этой процедуре команду Label1.Font.Color:=clBlack;

Что происходит, когда мышь проходит над объектом Label1? ________________________________
Что происходит, когда мышь оставляет объект Label1? _____________________________________

10. В папке Delphi Projects создайте папку «Изменение свойств объектов» и сохраните там проект.

Контрольные вопросы

1. Когда возникает событие OnClick? ___________________________________________________
2. Когда возникает событие OnMouseMove? _____________________________________________
3. Когда возникает событие OnMouseLeave? _____________________________________________
4. На какой вкладке Инспектора объектов можно создавать процедуры обработки событий?____
5. Как обозначается в программе заголовок формы? _____ Form1.Caption _____

Надпись на кнопке? _____________________ Цвет формы? _____________________________
Текст в текстовом поле? _________________ Надпись на метке? ________________________
Цвет надписи на метке? __________________ Цвет текстового поля? ____________________

Дата добавления: 2015-07-11