ON SHUTDOWN *


>How can I prevent _SCREEN from closing when child windows are opened ?
>
>I have a form always openned in the _SCREEN form. In this form, I put the following code...
>
>in INIT
>

>BINDEVENT(_SCREEN,"QueryUnload",Thisform,"QueryUnload")
>

>
>in QUERYUNLOAD
>

>LOCAL lIdx
>LOCAL lPeutFermer
>
>NODEFAULT
>
>lPeutFermer= .T.
>
>FOR lIdx = 1 TO _Screen.formCount
>	IF _Screen.forms(lIdx).Name<>this.Name
>		lPeutFermer = .F.
>	ENDIF
>NEXT
>
>IF lPeutFermer=.F. then
>	MESSAGEBOX("   Il reste des fenêtres ouvertes !!!  ",16)
>	RETURN .F.
>ELSE
>	RETURN .T.
>ENDIF
>

>
>When I click the _SCREEN's close button it detect that other windows are opened, but _SCREEN close anyway.
>
>Any help is welcome