Fórum Destruir botões dinamicamente #485133
10/07/2014
0
Olá amigos, estou criando alguns botões dinamicamente e gostaria destrui-los em tempo de execução, acontece que não estou conseguindo pois eu gostaria de destruir apenas os botoes que estão dentro de um TScrollBox. Espero que tenham entendido e obrigado pela atenção
Anderson Ferreira
Curtir tópico
+ 0
Responder
Post mais votado
11/07/2014
Opa, se possível nos diga como resolveu, pois sua resposta pode ajudar outros futuramente.
Obrigado.
Obrigado.
Joel Rodrigues
Responder
Gostei + 1
Mais Posts
11/07/2014
Anderson Ferreira
Eu queria destruir uns botões que eu criei em tempo de execução dentro de um scrollbox, então pra destruir fiz assim:
procedure TForm_Movimento.DestruirBotoes;
var
i: integer;
begin
for i := ScrollBox_Mapa.ControlCount - 1 downto 0 do
if (ScrollBox_Mapa.Controls[i] is TJvXPButton) then
TJvXPButton(ScrollBox_Mapa.Controls[i]).Free;
end;
O x da questão é o "downto 0" eu estava tentando fazer "for i := 0 to ScrollBox_Mapa.ControlCount -1 do e sempre dava erro.
procedure TForm_Movimento.DestruirBotoes;
var
i: integer;
begin
for i := ScrollBox_Mapa.ControlCount - 1 downto 0 do
if (ScrollBox_Mapa.Controls[i] is TJvXPButton) then
TJvXPButton(ScrollBox_Mapa.Controls[i]).Free;
end;
O x da questão é o "downto 0" eu estava tentando fazer "for i := 0 to ScrollBox_Mapa.ControlCount -1 do e sempre dava erro.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)