Fórum Destruir checkbox.. como??? #288488
18/07/2005
0
Pessoal estou tentando fazer uma procedure para destruir os checkbox que eu fiz.. mas esta dando um erro... alguem tem uma ideia como fazer isso??
Esse e o codigo... se alguem souber me ajudem por favor... brigadao
procedure TFmPendencias.DestruirCheckBox;
var Contador: Integer;
begin
for Contador:=0 to ComponentCount-1 do
begin
if components[contador] is TCheckBox then
TCheckBox(components[contador]).Destroy;
end;
end;
Esse e o codigo... se alguem souber me ajudem por favor... brigadao
Japa
Curtir tópico
+ 0
Responder
Posts
18/07/2005
Rjun
Tente fazer assim:
procedure TFmPendencias.DestruirCheckBox;
var
Contador: Integer;
begin
for Contador := (ComponentCount - 1) downto 0 do
if components[contador] is TCheckBox then
TCheckBox(components[contador]).Destroy;
end;
Responder
Gostei + 0
18/07/2005
Massuda
estou tentando fazer uma procedure para destruir os checkbox que eu fiz..
Se você criou o CheckBox com um Owner (parametro usado no Create) diferente de nil, você não precisa destruir o CheckBox, ele será automaticamente destruído pelo Owner.Com relação ao código que você postou...
for Contador:=0 to ComponentCount-1 do
...faça o loop de trás para frente, pois se você está destruindo os componentes, o valor do ComponentCount também está mudando, o que gera alguns erros estranhos; portanto, faça algo assim...for Contador :=ComponentCount-1 downto 0 do...
Outra coisa, ao invés de escrever...
TCheckBox(components[contador]).Destroy;
...acostume-se a escreverTCheckBox(components[contador]).Free;
Responder
Gostei + 0
18/07/2005
Japa
Muito mas muitooo obrigado Rjun e Massuda.... Deu certinho :D
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)