Главная Регистрация RSS
Приветствую Вас, Гость
Статистика
Душевые перегородки из стекла стеклянные стеклянные двери в душевую кабину. | Каталог дипломных работ написание работ.
Онлайн всего: 2
Гостей: 2
Пользователей: 0
Ваша реклама здесь
Форма входа
Логин:
Пароль:
Наши сервисы
Запись на обучение
Научитесь бесплатно создавать нестандартные презентации PowerPoint!
Ваш e-mail: *
Ваше имя: *
Предмет: *
Поиск
Главная » Статьи » Лабораторно-практические занятия по Delphi [ Добавить статью ]

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

Подписаться на рассылку        Cкачать в формате doc

Практическая работа 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_____

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

Категория: Лабораторно-практические занятия по Delphi | Добавил: MainTeacher (06.12.2010) | Автор: Максим Олегович Семенихин
Просмотров: 7001 | Теги: события, программирование, свойства, компоненты, Delphi | Рейтинг: 4.3/3
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]