3. Завдання

1. Зробити кнопки Так й Ні доступними тільки після уведення імені й натискання клавіші Enter.

Підказка. В Object Inspector властивості Enabled кнопок Так й Ні додати значення False, а в процедуру Edit1KeyPressed включити, код:

Button1.Enabled := true;

Button2.Enabled := true;

2. Виконати скидання значень компонентів Edit1, Label2, Label3 для забезпечення можливості повторити діалог.

Підказка. Розмістити на формі ще одну кнопку BitBtn. Властивості Kind додати значення bkRetry, а властивості Caption - &Повторити. Увести програмно порожні рядки у властивості зазначених компонентів по натисканню кнопки Повторити:

Label2.Caption := ' ';

Label3.Caption := ' ';

Edit1.Text := ' ';

3. Зробити так, щоб при повторенні діалогу рядок уведення був би знову активним.

Підказка. Увести:

Form1.ActiveControl := Edit1.

Контрольні запитання

1. Як дати назву формі?

2. Для чого призначено компонент Edit?

3. Як змінювати розміри форми?

4. Як реалізувати вихід із створеного проекту за допомогою натискання кнопки (компонента на формі)?

5. Що означає запис If key = #13?

6. Що означає запис Label2.Caption := Edit1.Text + ', ти любиш читати?';

7. Як реалізувати недоступність певних компонентів на формі?

8. Що означає запис Button1.Enabled := true; ?

9. Яке призначення властивості Kind ?

10. Як здійснити скидання значень компонентів Edit1, Label2, Label3?

Практична робота № 4. Тема: Розробка проекту "довідник"

1. Постановка завдання

Створити програму, за допомогою якої можна виконати:

після запуску програми користувач вибирає за допомогою мишки або стрілок назву кольору й натискає клавішу Enter. На екрані з'являється назва кольору українською мовою й код у форматі RGB. Програма закінчує свою роботу з натискання клавіші Вихід.

Рис. 1 Рис. 2

Пояснення. Новими в цій роботі є використання компонента ListBox (список) на сторінці палітри компонентів Standard, використання вбудованого редактора для введення інформації й алгоритм вибору (оператор Case).

2. План розробки програми

1. Відкрити новий проект. Дати назва формі Довідник.

2. Розмістити у формі компоненти відповідно до Рис. 2.

3. Зберегти проект під ім'ям, наприклад, Pr3.pas й Pr.dpr.

4. Запустити програму, потім закрити вікно проекту кнопкою Вихід.

5. Виконати наступні дії:

Виділений компонент	Вікно інспектора об'єктів	Ім'я властивості	Дія
BitBtn1	Properties	Caption	&Вихід
		Kind	bkClose
Label1	Properties	Caption	Довідник запису кольору у форматі RGB
Label2	Properties	Caption	Колір Формат RGB
Label3	Properties	Caption	Видалити назва

6. Виділити ListBox1, в Object Inspector знайти властивість Items, праворуч від нього натиснути на кнопку із трьома крапками. У вікні, що з'явилося, вбудованого редактора (Рис. 3) ввести назви кольорів, кожний на новому рядку.

Збережіть набраний текст під ім'ям Color.txt. Для цього натисніть праву клавішу миші й виберіть режим Save. Для виходу з вбудованого редактора натисніть клавішу OK.

Рис. 3

7. Виконати наступні дії:

Виділений компонент	Вікно інспектора об'єктів	Ім'я властивості	Дія
ListBox1	Events	OnKeyPress	if key=#13 then case Listbox1.ItemIndex of 0: Label3.Caption:='чорний 000000'; 1: Label3.Caption:='білий FFFFFF'; 2: Label3.Caption:='червоний FF0000 '; 3: Label3.Caption:='зелений 00FF00'; 4: Label3.Caption:='бірюзовий 00FFFF'; 5: Label3.Caption:='синій 0000FF '; 6: Label3.Caption:='фіолетовий FF00FF'; 7: Label3.Caption:='жовтий FFFF00'; 8: Label3.Caption:='коричневий 996633 '; 9: Label3.Caption:='жовтогарячий FF8000 '; 10: Label3.Caption:='ліловий 8000FF '; 11: Label3.Caption:='сірий A0A0A0'; end;

8. Зберегти проект остаточно, запустити й протестувати його.