FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Borrar Panel me sale Access Violation
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. |
#2
|
||||
|
||||
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:
Para comprobar que las diferentes propiedades están asignadas.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
||||
|
||||
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.
Si los TSpeedButtons tienen como Owner y Parent a 'Personal', no tiene por que arrojar ningun error. Saludos. Última edición por ecfisa fecha: 25-11-2010 a las 20:39:59. |
#4
|
|||
|
|||
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...
|
#5
|
||||
|
||||
Cita:
Cuando creas los botones añade como Owner el contenedor "Personal".
Y luego para liberarlos puedes usar un código como este
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#6
|
|||
|
|||
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 ).
no se si sera importante pero el panel de personal esta encima de un componente TPageControl y el panel persona es un TTabSheet. Saludos. |
#7
|
||||
|
||||
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.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#8
|
|||
|
|||
Cita:
|
#9
|
||||
|
||||
Hola LiAnTe-
Cita:
Voy a mirar el código que pusiste ahora. Saludos. Última edición por ecfisa fecha: 26-11-2010 a las 15:51:05. |
#10
|
||||
|
||||
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).
Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar. |
#11
|
||||
|
||||
Hola.
Una pregunta Liante: ¿ Que hace el procedimiento 'BorrarPanelPersonal' previo a la creación ? Saludos. |
#12
|
||||
|
||||
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. |
#13
|
|||
|
|||
Cita:
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. Cita:
|
#14
|
||||
|
||||
Cita:
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:
Si no estoy confundiendo la lógica, creo que por ahí tendrías que empezar a buscar el problema. Un saludo. |
#15
|
|||
|
|||
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?
no quedara ahora una transaction activa??? |
#16
|
|||
|
|||
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... Última edición por LiAnTe- fecha: 17-03-2011 a las 15:09:30. |
#17
|
||||
|
||||
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:
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.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#18
|
|||
|
|||
Cita:
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??? |
#19
|
||||
|
||||
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.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#20
|
|||
|
|||
Cita:
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... |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Access Violation con DLL | emeceuy | Varios | 8 | 17-08-2007 21:57:55 |
access violation | chona | Varios | 2 | 31-10-2006 01:36:04 |
Access Violation | Carliviris | Varios | 5 | 12-05-2006 19:21:45 |
Access violation at .... | Perio | Varios | 5 | 07-02-2006 15:50:36 |
Access violation | Giasl | Varios | 6 | 07-05-2003 12:35:51 |
|