Como apagar todos os componentes dentro de um ScrollBox?

[Valdiney F. Lima 0]

Olá,Eu estou criando vários componentes dentro de um ScrollBox.Só que ao criar, eu preciso apagar todos os componentes que já estiverem dentro dele. Como eu faria isso?

[Carlos Edu 0]

E ai Dr. Cara, na verdade não entendi o seu problema e nem a utilidade.Se puder ser mais especifico.Carlos EduDesenv. Delphi*Programar também é um expressão artistica*

[Hugo Slepicka 0]

Se você estiver criando o ScrollBox em tempo de execução tb você pode dar um .free nele e depois sair criando tudo denovo...ou fazer um for...pegando todos os componentes cujo parent seja o scrollbox e dando free neles!!!

[Valdiney F. Lima 0]

Se você estiver criando o ScrollBox em tempo de execução tb você pode dar um .free nele e depois sair criando tudo denovo...

 

ou fazer um for...

 

pegando todos os componentes cujo parent seja o scrollbox e dando free neles!!!

Olha só Hugo.

 

O ScrollBox não é criado dinamicamente(em tempo real) não. Somente os componentes dentro dele.

 

Eu tentei usar: ScrollBox1.DestroyComponents;

 

Mas não deu certo.

[marcio.theis 3]

Tente o seguinte:

 

procedure TForm1.BitBtn2Click(Sender: TObject);var	x: integer;beginfor x:=Self.ComponentCount - 1 downto 0 do	if Self.Components[x].GetParentComponent = ScrollBox1 then		Self.Components[x].Destroy;end;

[Valdiney F. Lima 0]

Tente o seguinte:

procedure TForm1.BitBtn2Click(Sender: TObject);var	x: integer;beginfor x:=Self.ComponentCount - 1 downto 0 do	if Self.Components[x].GetParentComponent = ScrollBox1 then		Self.Components[x].Destroy;end;

Bruto!Deu certinho.Valeu...

[marcio.theis 3]

beleza, coisa boa...