Pedro,
En entorno MDI, yo lo controlo así...
PROCEDURE xFrmClients(oSender)
local nAscan
Local aForms := Application:aForms
ProcessMessages()
If (nAscan := aScan( aForms , {|o| o:ClassName() == TFrmClients():ClassName() } )) = 0
If (nAscan := aScan( aForms , {|o| o:ClassName() == TFrmEmpreses():ClassName() .or. o:ClassName() == TFrmIndexar():ClassName() } )) # 0
xSortir( oSender )
Return
EndIf
Else
aForms[nAScan]:SetFocus()
Return
EndIf
TFrmClients():New():Show()
RETURN
Aquí controlo que el formulario en cuestión no esté abierto, y además no esté abierto el formulario de selección de empresas y el de indexar ficheros.
Espero te sirva para el menester
Un Saludo,
Xevi.
"Pedro de Leon Rodas" <
pedro_deleon@hotmail.com> escribió en el mensaje news:[email=
4637f18c@ozsrv2.ozlan.local...]
4637f18c@ozsrv2.ozlan.local...[/email]
> Hola a todos, nuevamente molestando.
>
> ¿ Como puedo hacer para que un formulario abierto no se vuelva abrir hasta
> que se cierre ?
>
> ya estuve viendo el ejemplo de DBFDATA6 PERO NO LO QUIERO ASI.
>
> De antemano Gracias.
>
>
>
--