Borrar Panel me sale Access Violation

[LiAnTe-]

Hola a todos,

tengo un problema bastante gordo, tengo una aplicacion que creo botones en tiempo de ejecucion y al boton le asigno una accion a cada uno de ellos hasta aqui bien, pero cuando tengo que borrar los botones para insertar los nuevo de tanto en tanto me da un Acess Violation siempre es diferente por norma...

pero he estado buscando y mirando y si le quite este codigo no me da un access violation pero claro despues no me borra los botones...

Procedure TGesVentasBar.BorrarPanelPersonal;
var
i: Integer;
begin
for i:= ComponentCount -1 downto 0 do
begin
if (Components[i].ClassType = TSpeedButton)and
(TSpeedButton(Components[i]).Parent = Personal) then
Components[i].Free;
end;
end;

que solucion puedo hacer, para evitar que me salte cada 2 por 3 el access violation y pueda usar este codigo para borrar los iconos antes de volverlos a crear...

SAludos.

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

Tal vez deberías "debuggar" ese código paso a paso para saber exactamente dónde salta.
Ayudaría también, por ejemplo, si subieras un pequeño proyecto con el código de generar los botones, junto con este de destruirlos.

En cuanto al código que colocas, yo optaria (para asegurarme) de dividir la condición del IF en dos, y utilizar:

Código Delphi [-]
 if Assigned(...)

Para comprobar que las diferentes propiedades están asignadas.

Código Delphi [-]
Procedure TGesVentasBar.BorrarPanelPersonal;
var
  i: Integer;
begin
  for i:= ComponentCount -1 downto 0 do begin
    if (Components[i] is TSpeedButton) then begin
      if Assigned(TSpeedButton(Components[i]).Parent) then begin
        if Assigned(TSpeedButton(Components[i]).Parent = Personal) then begin
          Components[i].Free;
        end;
      end;
    end;
  end;
end;

[ecfisa]

Hola LiAnTe-

Hola.

Si los TSpeedButton están dentro de un TPanel llamado 'Personal' no es necesario recorrer todos los componentes del form
para seleccionar aquellos componentes cuyo Parent sea 'Personal'. Podés buscar directamente dentro de él.

Código Delphi [-]
procedure TForm1.BorrarPersonal;
var
  i: Integer;
begin
  for i:= Personal.ComponentCount-1 downto 0 do
   if Personal.Components[i].ClassType = TSpeedButton then
     Personal.Components[i].Free;
end;

Si los TSpeedButtons tienen como Owner y Parent a 'Personal', no tiene por que arrojar ningun error.


Saludos.

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

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

Empezado por LiAnTe-

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

Ok. Con el código es más sencillo ver el problema.

Cuando creas los botones añade como Owner el contenedor "Personal".

Código Delphi [-]
   ...
   vBotonPersonal := TSpeedButton.create(Personal);
   ...

Y luego para liberarlos puedes usar un código como este

Código Delphi [-]
procedure TGesVentasBar.Button1Click(Sender: TObject);
var
  i:Integer;
  btn:TSpeedButton;
begin
  // recorrer los componentes que hay en "personal"
  for i := (Personal.ComponentCount - 1) downto 0 do begin
    // es un SpeedButton?
    if (Personal.Components[i] is TSpeedButton) then begin
      // Apuntador al componente
      btn := TSpeedButton(Personal.Components[i]);
      // liberar
      btn.Free;
    end;
  end;
end;

[LiAnTe-]

Bien ahora me borra y me crea, pero me sigue dando el acces violation...

te pego el ultimo codigo....

Lo que hace el programa es crear un menu de personas al inicio cuando pulsas en una persona pues borra las personas y pone las opciones de la persona pulsada...

pero al destruir y dibujar de nuevo me va saliendo un Access Violation... y ando muy loco buscando el problema...

Ya agradecerte la ayuda que me estas prestando...

este es el ultimo codigo que se utiliza.... es como un bucle pulso se crea formulario crea personal, pulsas sobre el y destruye botones de personal y crea los nuevo botones de opciones... retrocedes y creas de nuevo las opciones de personal. ( gente ).

Código Delphi [-]
procedure TGesVentasBar.vPersonalBotonOnClick(Sender: TObject);
var
  vVentasOpcionesCodigo : Integer;
  vVentasOpcionesNombre : String;
  vTop                  : Integer;
  vInicio               : Integer;
  QOpcionesPersonal     : TIBSQL;
  vBotonPersonal        : TSpeedButton;

Begin
  vendedor.text := inttostr(Tbutton(sender).tag);
  VendedorExit;
  BorrarPanelPersonal;
  vTop := 1;
  vInicio := 1;
  Btt_AnteriorRegistroPersonal.Enabled := True;
  Btt_SiguienteRegistroPersonal.Enabled := False;

  QOpcionesPersonal := TibSql.create(NIL);
  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;

      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;

      QOpcionesPersonal.Next;
      vTop := vTop + 70;
    end;
   BDades.IBTransaction1.CommitRetaining;
   finally
    QOpcionesPersonal.Close;
    FreeandNil(QOpcionesPersonal);
   end;
end;

no se si sera importante pero el panel de personal esta encima de un componente TPageControl y el panel persona es un TTabSheet.

Saludos.

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

Pues a mi me funciona perfectamente.
He hecho un pequeño ejemplo sacando los datos de un TClientDataset. Revísalo y compara los procedimientos con los que tienes.

Subido al FTP del club.

[LiAnTe-]

Empezado por Neftali

Pues a mi me funciona perfectamente.
He hecho un pequeño ejemplo sacando los datos de un TClientDataset. Revísalo y compara los procedimientos con los que tienes.

Subido al FTP del club.

Me pongo a ello gracias.

[ecfisa]

Hola LiAnTe-

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

Que extraño, en la prueba que realicé a mi me funcionó perfecto.

Voy a mirar el código que pusiste ahora.



Saludos.

[*Caro*]

Hola Liante, recorre tu contenedor con Controls y sería suficiente asignarle el Parent a tus componentes creados en ejecución (como lo tienes al principio).

Código Delphi [-]
  for i:=Personal.ControlCount -1 downto 0 do
    begin
      if Personal.Controls[i] is TSpeedButton then
        Personal.Controls[i].free;
    end;

Saluditos

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

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