Como destruir varios Tlabel criados em tempo de execução!
: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
Curtidas 0
Respostas
Motta
29/04/2004
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;
GOSTEI 0