Criando Componentes Em Tempo De Execução

[Cloud]

Caros amigos,

O Capablanca foi muito gentil em enviar-me um código que criasse labels em tempo de execução, mas eu estou com um problema. Tenho que acessá-los individualmente após tê-los criado. Por exemplo:

Label.Caption := matriz;

Iguala o Caption do Label à string de uma matriz, dentro de um loop.

Como faço isso?

Obrigado.

Abraços.

[s3c]

Crie um TList de labels.

var L:TList; Lb:TLabel; i:Integer; // Deixe L como variável global
begin
  L := TList.Create;
  for i := 0 to MatrizCount-1 do
  begin
    Lb := TLabel.Create(Form1);
    Lb.Parent := Form1;
    L.Add(Lb);
// ajuste left e top
  end;
end;

Para Utilizar:

var i:Integer;

begin

for i := 0 to L.Count-1 do

TLabel(L[i]).Caption := Matriz[i];

end;

[s3c]

Não esqueça de dar L.Free no onDestroy do Form.