Destruir botões dinamicamente
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
Curtidas 0
Melhor post
Joel Rodrigues
11/07/2014
Opa, se possível nos diga como resolveu, pois sua resposta pode ajudar outros futuramente.
Obrigado.
Obrigado.
GOSTEI 1
Mais Respostas
Anderson Ferreira
10/07/2014
valeu amigos, já consegui.
POST <RESOLVIDO>
POST <RESOLVIDO>
GOSTEI 0
Anderson Ferreira
10/07/2014
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.
GOSTEI 0