criar v�rios componentes e destruir somente alguns

Question

Estou criando um form que tem a possibilidade de criar v�rios l�bels
em tempo de execu��o. O meu problema � que queria destruir ou alterar algumas propriedades desses labels, s� n�o estou conseguindo, pois n�o consigo dizer qual � o componente que criei e que estou selecionado no momento.

Marcio.theis · Answer

Porque vc n�o faz no momento da cria��o dos labels que vc coloca o nome poderia personalizar, colocando determinado tipo, ex.: lbl_tipo1_1 ou lbl_tipo2_2, ai vc pode varrer os componentes no momento que encontrar um label verificaria de que tipo ele �. Um id�ia que eu dou.

R�mulo Barros · Answer

Adicione dois TButons no seu projeto e configure o Name para btnCriarLabels e btnDestruirLabels. Ap�s isso, siga os passos:
[color=red:e1efaf889b][b:e1efaf889b]1 -[/b:e1efaf889b][/color:e1efaf889b] Declare a matriz MeusLabels na se��o p�blica da sua Unit:

   Public
      MeusLabels : Array[0..3] Of TLabels;
   ...
   ...

[color=red:e1efaf889b][b:e1efaf889b]2 -[/b:e1efaf889b][/color:e1efaf889b] Agora vamos implementar o evento OnClick do bot�o btnCriarLabels:

procedure TForm1.btnCriarLabelsClick(Sender: TObject);
Var
   Contador : Byte;
begin
   For Contador := 0 To 3 Do
   Begin
      MeusLabels[Contador]           := TLabel.Create(Form1);
      MeusLabels[Contador].Caption   := �Label � + IntToStr(Contador);
      MeusLabels[Contador].Name      := �lbl�    + IntToStr(Contador);
      MeusLabels[Contador].Parent    := Form1;
      MeusLabels[Contador].Top       := ((Contador + 1) * 20);
   End;
end;

[b:e1efaf889b][color=red:e1efaf889b]3 - [/color:e1efaf889b][/b:e1efaf889b] E agora, por �ltimo, vamos implementar o bot�o �btnDestruirLabels�:

procedure TForm1.btnDestruirLabelsClick(Sender: TObject);
Var
   Contador : Byte;
begin
   For Contador := 0 To 3 Do
   Begin
      MeusLabels[Contador].Destroy;
   End;
end;

[color=red:e1efaf889b][b:e1efaf889b]Agora vc poder� alterar qualquer propriedade dos seus labels criados, acessando os mesmos pelos vetores. Exemplo:[/b:e1efaf889b][/color:e1efaf889b]

MeusLabels[0].Caption >= �Novo Caption do Label � + MeusLabels[0].Name ;

F�rum criar v�rios componentes e destruir somente alguns #266990