На данном уроке изучим массивы компонентов. Динамическое создание компонентов, рассмотренное на предыдущем уроке, можно использовать и для создания массивов компонентов. Например, нам надо расположить на форме 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). Будет создан массив из трех кнопок.
Всё на этом урок закончен.