Borrar Panel me sale Access Violation

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