1 respuesta en este tema

[agag4]

Uso D7, tengo un TScrollBar donde voy llenando botones "al vuelo" de la siguiente forma:

delphi

  Boton            := TBitBtn.Create(Self);
  Boton.Name    := 'Btn' + IntToStr(aux);
  Boton.OnClick  := nil;
  Boton.Font.Style := [fsBold];
  Boton.Font.Color := clNavy ;
 
  ScrollBar_Botones.InsertControl(Boton);
  Boton.SetBounds(x, y, 215, 140);

Me tope con un problema, voy a necesitar quitarlos y ponerlos porque tengo unos filtros donde depende del que se seleccione son las cantidades de botones a mostrar en el mismo TScrollBar, como puedos eliminarlos todos ?? es la misma cuando vas eliminando registro por registro en un dataset ??

[agag4]

Ya encontre la forma de eliminarlos, no me funcionaba porque empezaba del principio al ultimo boton, pero si se empieza del ultimo al principio funciona

delphi

  for x := SrollBar_Botones.ControlCount -1 downto 0 do
  begin
    if SrollBar_Botones.Controls[x] is TBitBtn then
      TBitBtn(SrollBar_Botones.Controls[x]).Free ;
  end;