Borrar Panel me sale Access Violation

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