Borrar lo que esta dentro de un scrollbox

[Neftali [Germán.Estévez]]

Puedes recorrer todos los componentes del formulario utilizando los métodos componentCount y Componentes[i].
Una vez que hagas el recorrido, se trata de preguntar cuales están dentro del scrollbox para borrarlos; Para ello puedes utilizar la propiedad Parent. Algo así:

Código Delphi [-]
 var
   i:Integer;
   ctrl:TControl;
 begin
 
   // recorrer la lista de componentes (al revés)
   for i := (Self.ComponentCount - 1) downto 0 do begin
     // Es un TControl ?
     if (Self.Components[i] is tControl) then begin
       ctrl := TControl(Self.Components[i]);
       // Está en el Scrolll?
       if (ctrl.Parent = ScrollBox1) then begin
         MessageDlg('Se va a borrar: ' + ctrl.Name, mtWarning, [mbOK], 0);
         FreeAndNil(ctrl);
       end;
     end;
   end;

[yusnerqui]

Hola, por qué no usar las propiedades controls y controlcount del propio TScrollBox, de esta forma solo recorremos los elementos que nos interesa (controles del ScrollBox1) y simplemente los destruimos.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
   i : integer;
begin
  for i := ScrollBox1.ControlCount -1  downto 0 do
      ScrollBox1.Controls[i].Free;
end;

Bueno pues ahora tienes dos vías

Saludos Yusnerqui

[Neftali [Germán.Estévez]]

Empezado por yusnerqui

...por qué no usar las propiedades controls y controlcount del propio TScrollBox?

Efectívamente, porqué no usarlas... (se me pasó...)

Empezado por yusnerqui

...Bueno pues ahora tienes dos vías...

A usar preferiblemente la de yusnerqui, ya que es más clara y eficiente.

[sierraja]

ok Probaré apenas llegue a casa. Muchas gracias.....

[sierraja]

Una pregunta: ¿Por qué se hace el recorrido al revés?. Gracias....

[Neftali [Germán.Estévez]]

Empezado por sierraja

¿Por qué se hace el recorrido al revés?

Como los vas borrando, si empiezas por el principio te dará error (antes o después).
Por ejempo, si la lista tiene 20 elementos, al eliminar el 0, el que antes era el 1 pasa al 0 y al intentar eliminar el 1, realmente has borrado el dos.

Espero haberme explicado.

[roman]

Empezado por Neftali

Como los vas borrando, si empiezas por el principio te dará error (antes o después).

¡Ahh! Entonces podemos ahorrarnos una variable:

Código Delphi [-]
while ScrollBox1.ControlCount > 0 do
  ScrollBox1.Controls[0].Free;

// Saludos