Лабораторна робота №2. Програмне змінення властивостей об’єктів

Прізвище, ім’я учня _______________________________________________________

Клас ____

Завдання

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

2. Розмістіть на формі компоненти Button, Label, Edit (див. малюнок)

Кнопка (Button)

Мітка (Label)

Текст (Edit)

3. У кожного компонента мається властивість Name (ім’я компонента). Знайдіть її в Інспекторі об’єктів для кожного об’єкта та заповніть таблицю:

   Компонент	Властивість Name
   Форма
   Кнопка
   Мітка
   Текстове поле

4. Якщо ми запустимо програму і клюкнемо мишею по кнопці, то відбудеться подія – щиглик миші на кнопці. Delphi дозволяє обробляти події, тобто програмувати те, що буде робитися при виникненні події. Для цього треба вносити зміни в код програми, тобто дописувати програму, яку Delphi написала замість нас.

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

Розв’язання. Форма має ім’я Form1, у форми є властивість Caption, яка задає її заголовок. Отже, об’єкт Form1 має властивість Caption. Коли ми будемо писати програму, будемо позначати властивість Caption об’єкта Form1 так: Form1.Caption (між Form1 і Caption ставиться точка).

Для програмування події виконайте наступне.

1. Виділіть кнопку (Button).

2. Перейдіть в Інспекторі об’єктів на вкладку Events (Події).

Вкладка Events

Подія OnClick

Тут треба двічі клацнути мишею

Знайдіть подію OnClick (при кліці). Подія OnClick кнопки Button1 виникає тоді, коли користувач клюкне по ній. Клацніть двічі мишею по порожньому текстовому полі напроти властивості (див. мал.)

3. В

   Процедура, що обробляє подію OnClick об’єкта Button1

   ідбудеться перехід до вікна коду, в якому з’являться наступні рядки:

p rocedure TForm1.Button1Click(Sender: TObject);

begin

Тут, між словами begin та end, можна писати те, що відбуватиметься, коли користувач клюкне мишею по кнопці

end;

Н апишіть між словами begin та end:

F orm1.Caption := 'а воно робе!' ;

Властивість Caption об’єкта Form1

Знак присвоювання (встановлення)

Нове значення властивості

Крапка з комою

Запустіть програму. Клюкніть мишею на кнопці. Що відбувається? ____________________________ _____________________________________________________________________________________

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 створіть папку «Змінення властивостей об’єктів» і збережіть там проект.