Borrar Panel me sale Access Violation

[ecfisa]

Hola.

Una pregunta Liante: ¿ Que hace el procedimiento 'BorrarPanelPersonal' previo a la creación ?

Saludos.

[Estifmauin]

Yo también he probado tu código y funciona perfectamente.

¿No tendrás por ahí escondido algún método de dibujado o algo similar que esté accediendo a los controles del panel y que no esté comprobando la existencia de los mismos?
Un error bastante frecuente sería escribir algo como esto:
ActiveControl:=Personal.Controls[0]
sin comprobar antes si Personal.Controlcount > 0

Otra opción sería que después de llamar a BorrarPanelPersonal, hagas algo más...
Usa mensajes:
ShowMessage('empiezo a borrar los botones')
ShowMessage('he terminado de borrar los botones')
ShowMessage('voy a hacer otra cosa')
para saber dónde salta la liebre.

También puedes usar un manejador de excepciones global al programa (Application.OnException), dónde puedes investigar un poco de dónde viene el fallo, usando datos del objeto exception que te llegue.

[LiAnTe-]

Empezado por ecfisa

Hola.

Una pregunta Liante: ¿ Que hace el procedimiento 'BorrarPanelPersonal' previo a la creación ?

Saludos.

nada.

1. se crea el form con los botones de personas.
2. se borra los botones de personas.
3. se crean los botones de opciones de personas.

eso es lo unico que hace y siempre me salta un violate, igual tengo que hacer el procedimiento 5 o 6 veces y entonces salta el violate es iregular el pete pero lo da bastante veces...

Ahora estoy borrando el TTShet y lo estoy sustituyendo por un panel a ver si fuera eso.

Empezado por Estifmauin

Yo también he probado tu código y funciona perfectamente.

¿No tendrás por ahí escondido algún método de dibujado o algo similar que esté accediendo a los controles del panel y que no esté comprobando la existencia de los mismos?
Un error bastante frecuente sería escribir algo como esto:
ActiveControl:=Personal.Controls[0]
sin comprobar antes si Personal.Controlcount > 0

Otra opción sería que después de llamar a BorrarPanelPersonal, hagas algo más...
Usa mensajes:
ShowMessage('empiezo a borrar los botones')
ShowMessage('he terminado de borrar los botones')
ShowMessage('voy a hacer otra cosa')
para saber dónde salta la liebre.

También puedes usar un manejador de excepciones global al programa (Application.OnException), dónde puedes investigar un poco de dónde viene el fallo, usando datos del objeto exception que te llegue.

No para nada no acceso asi al panel.

[ecfisa]

nada.
1. se crea el form con los botones de personas.
2. se borra los botones de personas.
3. se crean los botones de opciones de personas.

Bueno eso ya es algo...

Mirá, primero ejecutás el código de 'BorrarPanelPersonal' que dentro de las cosas que hace es crear los botones.
Luego veo que los volves a crear en el código que pusiste:

Código Delphi [-]
...
      vBotonPersonal := TSpeedButton.create(Personal);
      vBotonPersonal.Parent  := Personal;
      vBotonPersonal.Caption := vVentasOpcionesNombre;
      vBotonPersonal.Height  := 69;
      vBotonPersonal.Width   := 108;
      vBotonPersonal.Left    := vInicio;     // Inicio
      vBotonPersonal.Top     := vTop;     // Altura
      vBotonPersonal.Enabled := True;
      vBotonPersonal.visible := True;
      vBotonPersonal.Tag     := vVentasOpcionesCodigo;
      vBotonPersonal.OnClick := vOpcionesVentasBotonOnClick;
      vBotonPersonal.Show;
...

Si no estoy confundiendo la lógica, creo que por ahí tendrías que empezar a buscar el problema.

Un saludo.

[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???