[LiAnTe-]

Hola ecfisa,

el problema que me da con tu codigo cuando lo coloco es que no me borra nada de nada...

Hola Neftali,

el problema que me da con tu codigo es que cuando lo pongo me dice en el ultimo assignen propiedad no validad tipos diferentes...

os pego la creacion de los boton asi, igual podais tener mas ideas pero me estoy volviendo loco intentando solventar el tema del violation y viene por el borrado de los componentes y creacion de nuevo...

Código Delphi [-]
Procedure TGesVentasBar.CrearBotonesPersonal;
var
    QPersonal               : TIBSQL;
    vPersonalCodigo         : Integer;
    vPersonalNombre         : String;
    vBotonAltoPersonal      : Integer;
    vBotonAnchoPersonal     : Integer;
    vIncioBoton             : Integer;
    vBotonPersonal          : TSpeedButton;

Begin
  vBotonAltoPersonal      := 69;
  vBotonAnchoPersonal     := 108;
  vIncioBoton             := 1;

  Btt_AnteriorRegistroPersonal.Enabled := False;
  Btt_SiguienteRegistroPersonal.Enabled := False;

  QPersonal := TibSql.create(NIL);
  QPersonal.Database := BDades.IBDatabase1;
   Try
    QPersonal.SQL.Text := 'Select * from Personal where tienda = ' + '''' +BDades.TConfigTIENDA.Text + '''';
    QPersonal.ExecQuery;

    While QPersonal.Eof = False do
    Begin
      vPersonalNombre := QPersonal.FieldByName('NOMBRE').AsString;
      vPersonalCodigo := QPersonal.FieldByName('CODIGO').AsInteger;

      vBotonPersonal := TSpeedButton.create(self);
      vBotonPersonal.Parent  := Personal;
      vBotonPersonal.Tag     := vPersonalCodigo;
      vBotonPersonal.Caption := vPersonalNombre;
      vBotonPersonal.Height  := vBotonAltoPersonal;
      vBotonPersonal.Width   := vBotonAnchoPersonal;
      vBotonPersonal.Left    := 1;//vBotonAncho + ParentVarCountPersonal.Left;
      vBotonPersonal.Top     := vIncioBoton;
      vBotonPersonal.Enabled := True;
      vBotonPersonal.visible := True;
      vBotonPersonal.Hint    := vPersonalNombre;
      vBotonPersonal.OnClick := vPersonalBotonOnClick;
      vBotonPersonal.Show;

      QPersonal.Next;
      vIncioBoton := vIncioBoton + vBotonAltoPersonal;
    end;
   BDades.IBTransaction1.CommitRetaining;
   finally
    QPersonal.Close;
    FreeandNil(QPersonal);
   end;
end;