Використання списків

Нехай, наприклад, потрібно в ході виконання проекту вибрати значення тільки однієї з таких властивостей форми: або заголовок, або колір, або розміри.

Д ля цього розмістимо на формі кнопку і список, який містить три елементи (рис. 5). Для створення списку потрібно два рази клацнути лівою клавішею миші по значенню властивості Items компонента ComboBox і у вікні, що з’явиться, ввести елементи списку (рис. 6).

Створимо процедуру для опрацювання події OnClick кнопки, і до її тексту помістимо таку команду:

If ComboBox1.Text='Заголовок'

Then Form1.Caption:='Заголовок змінений'

Else If ComboBox1.Text='Колір'

Then Form1.Color:=clRed

Else begin

Form1.Width:=600;

Form1.Height:=300;

end;

Використання прапорців

Нехай, наприклад, нам потрібно в ході виконання проекту змінювати значення або тільки однієї з властивостей форми (або заголовок, або колір, або розміри), або кількох із них, або не змінювати значення жодної з них.

Для цього розмістимо на формі кнопку і три прапорці (рис. 7).

При розміщенні прапорців на формі для кожного з них за замовчуванням автоматично встановлюється значення властивості Checked – False. Оскільки при виконанні проекту позначка жодного прапорця може бути не встановлена, то доцільно залишити такі початкові значення властивості Checked усіх прапорців.

С творимо процедуру для опрацювання події OnClick кнопки і до її тексту помістимо такі три послідовні (не вкладені одна в одну) команди розгалуження:

If CheckBox.Checked

Then Form1.Caption:='Заголовок змінений';

If CheckBox.Checked

Then Form1.Color:=clRed;

If CheckBox.Checked

Then begin

Form1.Width: = 500;

Form1.Height: = 200;

end;

Кожна з цих команд незалежно одна від одної буде визначати, чи вибраний відповідний прапорець, і залежно від цього кожна з них буде чи не буде виконувати відповідні команди зміни значень властивостей форми.

З розглянутих вище прикладів можна зробити такі висновки:

• перемикачі і списки використовуються тоді, коли потрібно вибрати один і тільки один варіант дій з кількох можливих;

• для опрацювання стану перемикачів і списків у процедуру включають команди розгалуження, які вкладені одна в одну;

• прапорці використовуються тоді, коли може бути вибраний або один, або кілька, або не вибраний жоден варіант дій з кількох можливих;

• для опрацювання стану прапорців у процедуру включають послідовні команди розгалуження, які незалежні одна від одної.

Хід роботи

1. Вивчити теоретичні відомості.

2. Дати відповіді на контрольні запитання.

3. Виконати завдання.

4. Оформити звіт.

Завдання 1

Створити програму розв’язання квадратного рівняння: ax²+bx+c=0. Приклад вікна програми наведено на рисунку 8.

Рис. 8 Рис. 9

Порядок виконання

1. У папці ЛР-Delphi, що знаходиться у власній папці, створіть папку Проект4_1.

2. Відкрийте Delphi 7.

3. На заготовку форми, що з’явилася на екрані після запуску Delphi 7, розмістіть п’ять написів (об’єкт типу Label), три поля редагування (об’єкт типу Edit), дві стандартні кнопки (об’єкт типу Button) і одну командну кнопку із зображенням (об’єкт типу BitBtn) відповідно до рисунка 9.

4. Встановіть значення властивостей компонентів згідно даних таблиці 2.

Таблиця 2

Компонент	Вкладка вікна «Інспектор об’єктів» (Object Inspector)	Властивість (Properties) /Подія (Events)	Значення властивості/ обробка події (тіло процедури обробки події)
Form1	Properties	Caption	Квадратне рівняння
		Color	clMoneyGreen
		Height	380
		Width	500
Label1	Properties	Caption	Розвя’зування квадратного рівняння
		Font	<Шрифт, розмір, колір за вибором>
Label2	Properties	Caption	X^2
		Font	<Шрифт, розмір, колір за вибором>
Label3	Properties	Caption	X
		Font	<Шрифт, розмір, колір за вибором>
Label4	Properties	Caption	=0
		Font	<Шрифт, розмір, колір за вибором>
Label5	Properties	Caption	<Чисте поле>
		Font	<Шрифт, розмір, колір за вибором>
Edit1	Properties	Text	<Чисте поле>
		Enabled	True
		Font	<Шрифт, розмір, колір за вибором>
Edit2	Properties	Text	<Чисте поле>
		Enabled	True
		Font	<Шрифт, розмір, колір за вибором>
Edit3	Properties	Text	<Чисте поле>
		Enabled	True
		Font	<Шрифт, розмір, колір за вибором>
Button1	Properties	Caption	Обчислити
		Font	<Шрифт, розмір, колір за вибором>
	Events	OnClick	<Процедура_1>
Button2	Properties	Caption	Інше рівняння
		Font	<Шрифт, розмір, колір за вибором>
	Events	OnClick	<Процедура_2>
BitBtn1	Properties	Caption	Закрити
		Kind	bkClose