TLabel.Create

[Rick10]

Olá,

Estou fazendo um programinha de cadastro de Cds simples. O cadastro é automático. O programa pega as tags das músicas e faz o cadastro automaticamente. Agora eu queria criar capas para cds gravados. Por exemplo, eu selecionaria o nome das músicas cadastradas e em cima disso criar as capas para os cds, tipo quando eu clicasse no botão criar, apareceria os nomes das músicas nas Labels. As labels teriam que ser criadas dinamicamente com os dados selecionados por mim. Como é que isso é feito? Tenho que usar um array? para criação das Labels. Se a resposta for sim, como isso é feito, eu já tentei de diversas formas e não consegui. As labels saem uma em cima da outra.

Alguém saberia como me ajudar???

Desde já agradeço!!

[rcanbr]

esse procedimento cria labels em tempo de execução

procedure TForm1.Button1Click(Sender: TObject);

var

OLabel : TLabel;

i:integer;

begin

i:=1;

repeat

OLabel := TLabel.create(application);

OLabel.Parent := Form1;

OLabel.Name := 'Label'+inttostr(i);

OLabel.Left := 10;

OLabel.Top := 15 * i;

OLabel.font.Size := 8;

i:=i+1;

until

i>10;

end;

end.

[Rick10]

Valeu pela dica, vou tentar usar. Obrigado.