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
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
Curtir tópico
+ 0
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;
for i:=0 to (pn.ComponentCount-1) do
if pn.Componets[i] is TLabel then
TLabel(pn.Componets[i]).Free;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)