Instanciando componente

Question

Pessoal, algu�m sabe como instanciar um componente? Exemplo: cada vez que eu clicar no form, cria-se um label com seu nome

Thaisandrade · Answer

var
MinhaLabel: TLabel;
Quant: integer;

begin
MinhaLabel:= TLabel.Create;
MinhaLabel.Name:= MinhaLabel+IntToStr(Quant);
MinhaLabel.Parent := Self;
MinhaLabel.Visible:= True;
Inc(Quant);
...

...

MinhaLabel.Free; -----> Dest�i o componente...
end;

Earmarques · Answer

Obrigado. E para destruir, preciso destruir o form todo, pq toda vez d� aquele erro de Access Violation......

Thaisandrade · Answer

var
MinhaLabel: TLabel;
Quant: integer;

begin
MinhaLabel:= TLabel.Create;
MinhaLabel.Name:= MinhaLabel+IntToStr(Quant);
MinhaLabel.Parent := Self;
MinhaLabel.Visible:= True;
Inc(Quant);
...

...

MinhaLabel.Free; -----> Dest�i o componente...
end;