| Objeto | Eventos |
|---|---|
| Entorno de datos | BeforeOpenTables |
| Conjunto de formularios | Load |
| Formulario | Load |
| Cursor o cursores del entorno de datos | Init |
| Entorno de datos | Init |
| Objetos 1 | Init |
| Formulario | Init |
| Conjunto de formularios | Init |
| Conjunto de formularios | Activate |
| Formulario | Activate |
| Object1 2 | When |
| Formulario | GotFocus |
| Object1 | GotFocus |
| Object1 | Message |
| Object1 | Valid 3 |
| Object1 | LostFocus |
| Object2 3 | When |
| Object2 | GotFocus |
| Object2 | Message |
| Object2 | Valid 4 |
| Object2 | LostFocus |
| Formulario | QueryUnload |
| Formulario | Destroy |
| Objeto 5 | Destroy |
| Formulario | Unload |
| Conjunto de formularios | Unload |
| Entorno de datos | AfterCloseTables |
| Entorno de datos | Destroy |
| Cursor o cursores del entorno de datos | Destroy |
Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________
LISA G
load
init
show
activate
got focus
--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/3d9902d7-5719-4016-920f-ca1e61a6f086o%40googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/014a53c5-f47e-7d48-4c4d-dac05f3221f6%40gmail.com.
Hola, lo que se me escapa de este hilo, es ¿porque querría destruir el formulario en el evento Init ?Si lo pudiera hacer, Es como que nunca llego a mostrar nada, el usuario no ve nada.¿para que llame entonces a un formulario?
*<Init>
TRY
LOCAL LOEX AS EXCEPTION
* Código y llamadas del evento Init
CATCH TO LOEX
LOEX.USERVALUE = PROGRAM()
SHOWERROR(LOEX)
FINALLY
ENDTRY
IF VARTYPE(loex)="O" && se produjo un error
loex = null
RETURN .f.
ENDIF
*</Init>
*<Método>
LPARAMETERS tlRelanzarError
TRY
LOCAL LOEX AS EXCEPTION
* Código y llamadas del método
CATCH TO LOEX
LOEX.USERVALUE = PROGRAM()
SHOWERROR(LOEX)
IF m.tlRelanzarError
THROW
ENDIF
FINALLY
ENDTRY
*</Método>