Form1.Components[i].Name – Повертає ім’я компонента під номером і

Завдання

Завдання №1.

Створити програму яка б могла б продемонструвати роботу властивостей компонентів Owner, ComponentCount, Components.

Хід роботи

1. Створимо новий проект який містить чотири кнопки Tbutton та компонент Tmemo:

2.Компоненти Tbutton містять написи – „Вивести власника”, „Кількість компонентів форми”, „Вивести список”, „Знищити компонент Memo1”. Для зміни напису на кнопці потрібно змінити її властивість Caption на відповідний текст.

3.Для того щоб вивести власника першої кнопки потрібно в обробнику її події onClisk написати наступний код:

Memo1.Text:=Button1.Owner.Name;

4.Друга кнопка повинна містити в своїй події onClisk наступний код:

Var

N:integer;

Begin

Визначаємо кількість компонентів якими володіє форма

N:=Form1.ComponentCount;

// Перетворюємо тип Integer в тип String – функція IntToStr().

//Виводимо це число в компоненті Memo1.

Memo1.Text:=IntToStr(N);

Var

I,N:integer;

Begin

// Визначаємо кількість компонентів якими володіє форма.

Memo1.Lines.ADD() – додає рядок тексту який знаходиться в дужках.

Form1.Components[i].Name – Повертає ім’я компонента під номером і.

Memo1.Lines.Add(Form1.Components[i].Name);

end;

6.Для знищення компонента шукаємо його і використовуємо метод Free:

Form1.FindComponent('Memo1').free;

Аналогічно можна було б знищити компонент не шукаючи його:

Memo1.Free;

7.Збережіть програму на диску С в папці Practugna3Z1.

Виконавши завдання заповніть таблицю відповідними даними: ім’я компонента що міститься в списку Components форми та його номер в цьому списку.