Este es el Error.txt que genera el GPF.

General Protection Fault.
- Llamado desde TFORM:MODALRESULT(0‘|p’|ÿÿÿÿm’|Þ¿w)
- Llamado desde XMESSAGEDLG(292‘|p’|ÿÿÿÿm’|Þ¿w)
- Llamado desde FRESTAURARFITXERS(29‘|p’|ÿÿÿÿm’|Þ¿w)
- Llamado desde (b)MENUOPCIONS(242‘|p’|ÿÿÿÿm’|Þ¿w)
- Llamado desde TAPPLICATION:RUN(0‘|p’|ÿÿÿÿm’|Þ¿w)
- Llamado desde MAIN(122‘|p’|ÿÿÿÿm’|Þ¿w)

Un Saludo,
Xevi.

_________________
Un Saludo,
Xevi.

Xevi,

¿Lo puedes reproducir sistemáticamente?

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com

Bruno,

El GPF se produce en tres mensajes... que adjunto las ventanas que me muestra.

Creo que me ocurre en un apartado concreto...

Igual puedo montar mi proyecto con objs y el Prg que causa el error, para que lo compiles tu mismo...

Gracias por tu tiempo.

_________________
Un Saludo,
Xevi.

Bruno,

revisando mi aplicación, recuerdas que al desplazar el StringGrid en un apartado de mi aplicación lanzaba un GPF... pues ahí mismo también lanza este mismo error.

Como ya dispones de la aplicación en OBJs, que te mandé hace unos meses, puedes probar por ahí... ¿no?

Gracias.

_________________
Un Saludo,
Xevi.

Bruno,

te adjunto un proyecto que me lanza este preciso GPF.

Tengo creada mi función xMessageDlg() para recibir unos parámetros de mas que la original de C3... bien, pues no se si lo hago mal o que ha pasado en esta última actualización, pero hasta la anterior funcionaba perfectamente.

¿Tienes un momento para revisarlo???
¿Soy yo que debo cambiar algo al crear el formulario en mi función???

Gracias.

_________________
Un Saludo,
Xevi.

Bruno,


Por lo visto casca en esta última actualización por la línea oForm:Destroy().

La he comentado en mi función y ya funciona PERFECTAMENTE!!!

Ahora, al crear un Form desde programa ¿no debemos destruirlo??? ¿se destruye automáticamente al cerrar el Formulario???


Gracias otra vez por tu tiempo.

_________________
Un Saludo,
Xevi.

Xevi,

Este es tu código:

Application:ProcessMessages()
If nType == mtCustom
oForm:Close()
Return oForm
Else
oForm:Destroy()
EndIf

Return oForm:ModalResult

Estás devolviendo oForm:ModalResult de un objeto que has destruído antes, salva el valor antes de destruirlo, de esta forma:

Application:ProcessMessages()
If nType == mtCustom
oForm:Close()
Return oForm
Else
nModalResult := oForm:ModalResult
oForm:Destroy()
EndIf

Return nModalResult

_________________
Un saludo,
Bruno Cantero
www.c3compiler.com