Fórum Como destruir varios Tlabel criados em tempo de execução! #228814

29/04/2004

0

:oops:
Desenvolvi uma aplicação que cria varios TLabel em tempo de execução,
mas qdo mudo o registo de minha tabela preciso destruir os Tlabel criados e crialos novamente atualizados.
Como fazer isso.

Var button:Tlabel
begin
Button := TLabel.Create(Pn);
with Button do
begin
Cursor:=crHandPoint;
font.Size:=14;
Autosize :=False;
Parent := Pn;
Showhint := True;
left := contador;
top := tp;
contador :=contador +33;
OnClick:=Btn.OnClick;
End;
End.

Ele até cria todos de novo mas se num registro estiver mais os ultimos não são apagados.


gratos

Anselmo


Anselmo

Anselmo

Responder

Posts

29/04/2004

Motta

que diabos seja pn ....


for i:=0 to (pn.ComponentCount-1) do
if pn.Componets[i] is TLabel then
TLabel(pn.Componets[i]).Free;


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar