BorlanD Russian Сommunity

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

 

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

 

var

 Form1: TForm1;

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

 

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

 

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

 

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). Будет создан массив из трех кнопок.

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

Просмотров: 2473 | Категория: Delphi 7 | Дата: 11.05.2008