Borrar Botones

[DarkMan]

Si el panel es constante y no se crea y se destruye, sabiendo su nombre desde el principio puedes eliminar todos los botones de ese tipo que contenga.

Modificando un poco la función quedaría algo así:

Código Delphi [-]
procedure BorrarSpeedBtns(Panel: TPanel);
var
  i: Integer;
begin

   for i:= ComponentCount -1 downto 0 do
     if Components[i].ClassType = TSpeedButton then
       If Components[i].Parent = Panel then Components[i].Free;

end;

[ecfisa]

Hola de nuevo.

La idea de DarkMan está bíen orientada.
Pero [i]Components nos da un TComponent y no tiene la propiedad Parent,
o sea que tendríamos que ir a un descendiente que la tenga. Este es TWinControl.

Entonces la línea:

   If Components[i].Parent = Panel then

debería ser:

   if TSpeedButton(Components[i]).Parent = Panel1  then

Parametrizando para cualquier contenedor sería:

procedure TForm1.BorrarBtns(ACtrl: TWinControl);
var
  i: Integer;
begin
  for i:= ComponentCount -1 downto 0 do
    if (Components[i].ClassType = TSpeedButton)and
      (TSpeedButton(Components[i]).Parent = ACtrl) then
       Components[i].Free;
end;

Llamadas:

  BorrarBtns(Panel1);
  BorrarBtns(GroupBox1);
  ...

Saludos.

[LiAnTe-]

Soys unos Crack's muchas gracias a todos.