Borrar Panel me sale Access Violation

[LiAnTe-]

Hola compañeros,

me ando volviendo loco con Access Violation todavia... ahora parece que no peta el tema de personal quitandole...

IBtransaction y el Close...

Alguien me puede guiar un poco? estaban mal colocados? no era correcto o que pasaba?

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

Begin
  vPersonalNombre         := '';

  vBotonAltoPersonal      := 70;
  vBotonAnchoPersonal     := 100;
  vBotonInicioPersonal    := 4;
  vBotonIzquierdaPersonal  := 4;

  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(Personal);
      vBotonPersonal.Parent  := Personal;
      vBotonPersonal.Tag     := vPersonalCodigo;
      vBotonPersonal.Caption := vPersonalNombre;
      vBotonPersonal.Height  := vBotonAltoPersonal;
      vBotonPersonal.Width   := vBotonAnchoPersonal;
      vBotonPersonal.Left    := vBotonIzquierdaPersonal;//vBotonAncho + ParentVarCountPersonal.Left;
      vBotonPersonal.Top     := vBotonInicioPersonal;
      vBotonPersonal.Enabled := True;
      vBotonPersonal.visible := True;
      vBotonPersonal.Hint    := vPersonalNombre;
      vBotonPersonal.OnClick := vPersonalBotonOnClick;
      vBotonPersonal.Show;

      QPersonal.Next;
      vBotonInicioPersonal := vBotonInicioPersonal + vBotonAltoPersonal;
    end;
//   BDades.IBTransaction1.CommitRetaining;
   finally
//    QPersonal.Close;
    QPersonal.Free;
   end;
end;

procedure TGesVentasBar.vPersonalBotonOnClick(Sender: TObject);
var QOpcionesPersonal       : TIBSQL;
    vBotonPersonalOpciones  : TSpeedButton;
    vVentasOpcionesCodigo   : Integer;
    vVentasOpcionesNombre   : String;

Begin
  vVentasOpcionesNombre   := '';

  vBotonInicioPersonal    := 4;
  vBotonAltoPersonal      := 70;
  vBotonAnchoPersonal     := 100;
  vBotonIzquierdaPersonal := 4;

  vVendedor := Tbutton(sender).tag;
  vendedor.Text := IntToStr(vVendedor);
//  VendedorExit;
  BorrarPanelPersonal;

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

  QOpcionesPersonal := TibSql.create(Self);
  QOpcionesPersonal.Database := BDades.IBDatabase1;
   Try
    QOpcionesPersonal.SQL.Text := 'Select * from VentasOpciones where tienda = ' + '''' + BDades.TConfigTIENDA.Text + '''';
    QOpcionesPersonal.ExecQuery;

    While QOpcionesPersonal.Eof = False do
     Begin
      vVentasOpcionesCodigo := QOpcionesPersonal.FieldByName('CODIGO').AsInteger;
      vVentasOpcionesNombre := QOpcionesPersonal.FieldByName('NOMBRE').AsString;

      vBotonPersonalOpciones := TSpeedButton.create(Personal);
      vBotonPersonalOpciones.Parent  := Personal;
      vBotonPersonalOpciones.Caption := vVentasOpcionesNombre;
      vBotonPersonalOpciones.Height  := vBotonAltoPersonal;
      vBotonPersonalOpciones.Width   := vBotonAnchoPersonal;
      vBotonPersonalOpciones.Left    := vBotonIzquierdaPersonal;     // Inicio
      vBotonPersonalOpciones.Top     := vBotonInicioPersonal;     // Altura
      vBotonPersonalOpciones.Enabled := True;
      vBotonPersonalOpciones.visible := True;
      vBotonPersonalOpciones.Tag     := vVentasOpcionesCodigo;
      vBotonPersonalOpciones.OnClick := vOpcionesVentasBotonOnClick;
      vBotonPersonalOpciones.Show;

      QOpcionesPersonal.Next;
      vBotonInicioPersonal := vBotonInicioPersonal + 70;
    end;
//   BDades.IBTransaction1.CommitRetaining;
   finally
//    QOpcionesPersonal.Close;
    QOpcionesPersonal.Free;
   end;
end;

no quedara ahora una transaction activa???

[LiAnTe-]

Hola Neftali,

No se todadia el porque pero retoque tu codigo de creacion de botones en tiempo de ejecucion y cree y borre y me da un acces violation, me parece que es cuando se le asigna BotonOnClick pero todavia no estoy viendo donde esta el problema ya que no lo da siempre...

es cuestion de ir pulsando el crear botones, darle al boton para que cree el BotonOnClick y volver a crear si lo haces de esta manera te acaba dando un ACCESS VIOLATION que me esta volviendo loko.

te pego el codigo a ver si me puedes ayudar o alguien puede ver que es lo que estoy haciendo mal, porque le doy vueltas y vueltas y no encuentro donde la estoy cagando...

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

Creo que deberías estructurar un poco más el código, porque me parece que hay cosas que están bastante "enredadas".

Por ejmplo, mirando el procedimiento que asignas a los botones creados hay esto:

Código Delphi [-]
...
Begin

  begin
    for i := (Personal.ComponentCount - 1) downto 0 do begin
      if (Personal.Components[i] is TSpeedButton) then begin
        btn := TSpeedButton(Personal.Components[i]);
        btn.Free;
      end;
    end;
  end;

  MessageDlg('Clic en el boton: ' + TSpeedButton(Sender).Name, mtInformation, [mbOK], 0);

Nada más entrar, destruyes todos los botones que has creado (for), y justo en la línea siguiente acceder a TSpeedButton(Sender), que es uno de los botones pulsados. ¿?¿?¿?¿

Es lógico que te de un AV.

[LiAnTe-]

Empezado por Neftali

Creo que deberías estructurar un poco más el código, porque me parece que hay cosas que están bastante "enredadas".

Por ejmplo, mirando el procedimiento que asignas a los botones creados hay esto:

Código Delphi [-]... Begin begin for i := (Personal.ComponentCount - 1) downto 0 do begin if (Personal.Components[i] is TSpeedButton) then begin btn := TSpeedButton(Personal.Components[i]); btn.Free; end; end; end; MessageDlg('Clic en el boton: ' + TSpeedButton(Sender).Name, mtInformation, [mbOK], 0);


Nada más entrar, destruyes todos los botones que has creado (for), y justo en la línea siguiente acceder a TSpeedButton(Sender), que es uno de los botones pulsados. ¿?¿?¿?¿

Es lógico que te de un AV.

los destruyo porque si miras el codigo tengo que crear otros despues...

mi intencion es la siguiente...

1. Creo botones de personal en el panel.
2. Borro Botones de personal en el panel y creo los botones de opciones del personal.

pero si miras el codigo no peta siempre, a veces peta y otras tardas mas...

Sabrias la solucion, porque yo me estoy volviendo loco buscandola...

Gracias de antenamo por tu ayuda.

PD: Igual estoy haciendo mal que antes de destruirlos tendria que guardar la variable?? para saber que tengo que crear???

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

Empezado por LiAnTe-

los destruyo porque si miras el codigo tengo que crear otros despues...

Debes eliminar esa línea.
A partir de ahi, lo que no entiendo es que vuelvces a crear los mismos botones otra vez, apuntando al mismo evento (en 2 sitios distintos), pero cambiando los tamaños.

Yo voy haciendo:

1) CREAR
2) click en un botón ==> Crea otros nuevos
3) BORRAR
4) Repetir punto 1

Esto no me peta, aunque no le veo ningun sentido.

[LiAnTe-]

Empezado por Neftali

Debes eliminar esa línea.
A partir de ahi, lo que no entiendo es que vuelvces a crear los mismos botones otra vez, apuntando al mismo evento (en 2 sitios distintos), pero cambiando los tamaños.

Yo voy haciendo:

1) CREAR
2) click en un botón ==> Crea otros nuevos
3) BORRAR
4) Repetir punto 1

Esto no me peta, aunque no le veo ningun sentido.

Hola Cambie el codigo y lo que me comentas pero el tema sigue petando de tanto en tanto, te subo el nuevo codigo modificado.

y para que lo entiendas es facil...

el primer boton es le personal ( juan, maria, nuria... ), una vez pulsas sobre ese personal tiene que salir las opciones de cada uno de ellos. ( juan , pues tiene cobrar, salir y cerrar, nuria solo tiene cerrar... ).

el porque de tanto borrar y crear de nuevo es simple puedo a ver pulsado juan y me abre equivocado entonces retrocedo y creo de nuevo el personal...

El tema es que hay algo por hay que cuando creas y eliminas pues parece no acaba de funcionar... y mira que llebo horas y horas mirando de ver por donde viene el ACCESS VIOLATION... no tengo manera de encontrarlo igual es porque me falta mas experiencia o seguro estoy haciendo algo mal...

[LiAnTe-]

aqui va el codigo ya que no pude subir 2 imagenes.

Gracias.