Динамический Label для динамической формы...

[Arkuz]

Привет. Я сравнительно недавно взялся за Делфи. Делаю простенькие вещи. Вот возник вопрос.
Как мне привязать динамически создающиеся лэйблы к динамически создающимся формам? У меня массив форм, которые создаются. И теперь мне нужно массив лэйблов привязать к массиву форм, и чтобы на каждой форме отображался лэйбл!!!
Заранее спасибо...

Вот отрывок кода:

begin
randomize;
for i:=1 to n do
begin
a[i]:=TForm.Create(Application);
l[i]:=Tlabel.Create(a[i]);
x:=screen.Width;
y:=screen.Height;
a[i].Top:=random(x);
a[i].Left:=random(y);
a[i].Show;
end;
Form1.SetFocus;
Button2.Visible:=true;
Button1.Visible:=false;
end;

[bill]

Может создать клас в котором будет уже все лэйблы а потом просто сколько надо раз его создать?

[Showy]

Попробуй так

begin
randomize;
for i:=1 to n do
begin
a[i]:=TForm.Create(Application);
l[i]:=Tlabel.Create(a[i]);
l[i].width:=40;
l[i].height:=10;
l[i].caption:='label';
l[i].left;=0;
l[i].top:=0;
a[i].insertcontrol(l[i]);
x:=screen.Width;
y:=screen.Height;
a[i].Top:=random(x);
a[i].Left:=random(y);
a[i].Show;
end;
Form1.SetFocus;
Button2.Visible:=true;
Button1.Visible:=false;
end;

[Arkuz]

Спасибо
Фишка с a[i].insertcontrol(l[i]); помогла.
Ещё раз благодарен...

[Arkuz]

Здесь всё работает...
---------------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
x,y,i:integer;
begin
randomize;
for i:=1 to n do
begin
l[i]:=Tlabel.Create(a[i]);{создание динамических лэйблов}
l[i].Caption:='Ты ламер!!!';
l[i].Font.Size:=36;
l[i].Font.Color:=clRed;
a[i]:=TForm.Create(Application);{создан ие динамических форм}
a[i].Caption:='Ты ламер!!!';
x:=screen.Width; {определение}
y:=screen.Height; {разрешения}
a[i].Top:=random(x);
a[i].Left:=random(y);
a[i].insertcontrol(l[i]);{вставка лэйблов в формы}
a[i].Show;
end;
Form1.SetFocus;
Button2.Visible:=true; (*временные элементы*)
Button1.Visible:=false;
end;
--------------------------------------------------------

Но только лэйблы появляются на формах после создания всех форм. А мне нужно, чтобы появлялась форма, на ней лэйбл, а только потом следующая форма, как этого добиться?

[Showy]

попробуй всавь в цикл application.ProcessMessages
вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
x,y,i:integer;
begin
randomize;
for i:=1 to n do
begin
l[i]:=Tlabel.Create(a[i]);{создание динамических лэйблов}
l[i].Caption:='Ты ламер!!!';
l[i].Font.Size:=36;
l[i].Font.Color:=clRed;
a[i]:=TForm.Create(Application);{создан ие динамических форм}
a[i].Caption:='Ты ламер!!!';
x:=screen.Width; {определение}
y:=screen.Height; {разрешения}
a[i].Top:=random(x);
a[i].Left:=random(y);
a[i].insertcontrol(l[i]);{вставка лэйблов в формы}
application.ProcessMessages;
a[i].Show;
end;
Form1.SetFocus;
Button2.Visible:=true; (*временные элементы*)
Button1.Visible:=false;
end;

[Arkuz]

Спасибо.. как всегда работает (application.ProcessMessages
А что она значит эта срочка application.ProcessMessages;

[Showy]

application.ProcessMessages это метод который предписывает приложению обработать поступившие и ожидающие своей очереди сообщения

[Arkuz]

Говорю спасибо в 3 или в 4 раз...
Showy, спасибо за полные аргументированные ответы...