Главная Всё о Delphi Регистрация

Вход

Приветствую Вас Гость | RSSВторник, 21.11.2017, 05:27
Меню сайта

Категории каталога
Начинающим [44]
Материалы для начинающих
Трюки [2]
Трюки
Разное [94]
Материалы на разные темы

Наш опрос
Какой процессор у вас стоит?
Всего ответов: 133

Каталог статей
Главная » Статьи » Начинающим

Урок 11. Массивы компонентов

На данном уроке изучим массивы компонентов. Динамическое создание компонентов, рассмотренное на предыдущем уроке, можно использовать и для создания массивов компонентов. Например, нам надо расположить на форме 3 кнопки. Если они будут выполнять в программе схожие функции, то лучше их оформить в виде массива.

 

Код объявления массива:

 

var

 Form1: TForm1;

             btn: Array[1..3] Of TButton;

 

После этого добавьте в окно кода следующий обработчик для события OnCreate (для этого перейдите в Инспекторе объектов на вкладку Events, и сделайте двойной щелчок на событии OnCreate).

 

Код для генерации компонентов:

 

procedure TForm1.FormCreate(Sender: TObject);

var

             i:Integer;

begin

             for i:=1 To 3 do

            begin

            btn[i]:=TButton.Create(Form1); //Создаем кнопку

btn[i].Parent:=Form1; //Задаем родительское окно

            btn[i].Top:=10;

            btn[i].Left:=10+60*(i-1);

            btn[i].Width:=50;

            btn[i].Height:=50;

            btn[i].Caption:=IntToStr(i) //Задаем заголовок для кнопки

            end

end;

 

Теперь можете запускать программу (F9). Будет создан массив из трех кнопок.

Всё на этом урок закончен.

Категория: Начинающим | Добавил: Дубин (07.08.2007) | Автор: Дубин Михаил Олегович
Просмотров: 604 | Рейтинг: 0.0/0 |

Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа

Поиск

Друзья сайта

Статистика

Рейтинг@Mail.ru

Реклама

Copyright MyCorp © 2017Сайт управляется системой uCoz