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; 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;