Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 17-03-2011
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.289
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
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.
__________________
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.
Responder Con Cita
  #2  
Antiguo 17-03-2011
LiAnTe- LiAnTe- is offline
Miembro
 
Registrado: oct 2007
Posts: 47
Poder: 0
LiAnTe- Va por buen camino
Cita:
Empezado por Neftali Ver Mensaje
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???
Responder Con Cita
  #3  
Antiguo 17-03-2011
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.289
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por LiAnTe- Ver Mensaje
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.
__________________
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.
Responder Con Cita
  #4  
Antiguo 17-03-2011
LiAnTe- LiAnTe- is offline
Miembro
 
Registrado: oct 2007
Posts: 47
Poder: 0
LiAnTe- Va por buen camino
Cita:
Empezado por Neftali Ver Mensaje
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...
Imágenes Adjuntas
Tipo de Archivo: jpg accesviolation1.jpg (17,4 KB, 9 visitas)
Responder Con Cita
  #5  
Antiguo 17-03-2011
LiAnTe- LiAnTe- is offline
Miembro
 
Registrado: oct 2007
Posts: 47
Poder: 0
LiAnTe- Va por buen camino
aqui va el codigo ya que no pude subir 2 imagenes.

Gracias.
Archivos Adjuntos
Tipo de Archivo: rar Bottones.rar (64,9 KB, 6 visitas)

Última edición por LiAnTe- fecha: 17-03-2011 a las 15:11:06.
Responder Con Cita
  #6  
Antiguo 17-03-2011
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.289
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
He estado mirando y no veo ninguna línea que pueda estar provocando el Access Violation. Además el hecho de que no aparezca siempre me indica que no es una línea concreta, sino unproblema en el diseño.

Apostaría que el problema está, en que estás destruyendo Todos los botones, inclusive el propio sobre el que estás ejecutando el evento.

Es decir en el propio evento del botón1, lo destruyes y lo vuelves a crear. Al acabar el evento, representa que el componente al que pertenece lo has destruído por el camino.
__________________
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.
Responder Con Cita
  #7  
Antiguo 17-03-2011
LiAnTe- LiAnTe- is offline
Miembro
 
Registrado: oct 2007
Posts: 47
Poder: 0
LiAnTe- Va por buen camino
claro es posible que sea eso porque si lo hago sin destruir botones nunca me genera el access violation, el tema es como puedo solventar eso para que pueda hacer la funciona que quiero hacer y no se genere el access violation...

porque claro lo que no puedo hacer es pintar encima encima de los otros botones.

Saludos.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

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


La franja horaria es GMT +2. Ahora son las 18:55:29.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi