Page 1 of 1

Salida con Escape

Posted: Wed Aug 22, 2007 10:36 am
by AngelSalom
Buenasss, tengo un problema que me ocurre siempre, al que no daba mucha importancia, pero que me pica la curiosidad.
Monto una ventana y en la clausula ON INIT genero un browse, un menú, etc,etc . Bien el tema es que si eres lo suficientemente rápido, cuando pides que se cree la ventana y pulsas escape inmediatamente despues, da un error en la siguiente clase que intenta crear algún objeto dependiente de la ventana. Ya probe con los VALID en el ACTIVATE WINDOW (1º con una variable del tipo VALID !lNoSalgaaas y 2º con VALID !GetAsyncKey(27) con identico resultados)

¿sabeis si puedo mirar algo para solucionar este tema?

Gracias.

Posted: Wed Aug 22, 2007 12:04 pm
by Antonio Linares
Angel,

Inténtalo así:

DEFINE WINDOW oWnd ...

oWnd:bValid := { || .F. }

...

ACTIVATE WINDOW oWnd ...

Posted: Fri Aug 24, 2007 7:30 am
by AngelSalom
Pues no, así obtengo el mismo resultado ... es curioso ¿quizas unos cuantos sysrefresh() antes??

Posted: Fri Aug 24, 2007 7:53 am
by Antonio Linares
Angel,

O prueba a deshabilitar la ventana principal tras crearla con oWnd:Disable() (y una llamada a SysRefresh() para que le de tiempo a procesar) y la vuelves a activar despues de haber hecho toda la inicialización con oWnd:Enable(), asi no procesará eventos del usuario