Saber si ventana MDI esta abierta - ( SOLUCIONADO )

[leandro]

Buenos días para todos...

Requiero saber si una ventana MDI se encuentra abierta, desconozco si se puede hacer mediante el nombre del objeto? o debe ser con título? y si esta abierta indicarle que tome el foco.

de antemano gracias.

[MGA]

if !VerificaWindows()
return
endif

if ! lChild
DEFINE WINDOW s_oWndPDF TITLE cTitulo
else
DEFINE WINDOW s_oWndPDF MDICHILD of M->oWnd vscroll TITLE cTitulo
endif

if lChild
s_oWndPDF:bValid := {|| HB_GCAll(.t.), s_oWndPDF := Nil , .t. }
else
s_oWndPDF:bPostEnd := {|| HB_GCAll(.t.), s_oWndPDF := Nil }
endif
ACTIVATE WINDOW s_oWndPDF MAXIMIZED

/*****************************************************************************/
static function VerificaWindows()
/*
*/
if s_oWndPDF!= nil
if !IsZoomed(s_oWndPDF:hWnd)
s_oWndPDF:Maximize()
endif
return(.f.)
endif
return(.t.)

[leandro]

Amigo gracias por responder....

Pero no logro hacer que ande, buscando las propiedades de la oWnd Principal, me encontré con este array, pero no logro sacar la información de ahí. No encuentro dentro del objeto los nombres de las variables de los objetos TMDICLIENT... de antemano gracias.

Code: Select all  Expand view

xbrowse(oWnd:oWndclient:aWnd)
 

[karinha]

Code: Select all  Expand view

STATIC lWinOpen := .T.

FUNCTION Main()

   ...

RETURN NIL


STATIC lWinOpen := .F.

FUNCTION CHAMADO( oWnd, oContato )


   IF lWinOpen = .F.

      lWinOpen := .T.

   ELSE

      ? [No puede... ]

      lLigaBtnChama := .F.
      oContato:Disable()
      oContato:Refresh()

      lWinOpen := .F.

      RETURN NIL

   ENDIF

RETURN NIL
 

Saludos.

[cnavarro]

Tienes que buscar el hWnd de la ventana que quieres comprobar

Code: Select all  Expand view

Function IsOpen( oWndMdi )
      local nAt
      local oWnd
      if ( nAt := AScan( ::aWnd, { | oW | oW:hWnd == oWndMdi:hWnd } ) ) != 0
         oWnd = oWndMdi:aWnd[ nAt ]
      endif
Return oWnd
 

[cmsoft]

Hola Leadron:
Yo llevo un control de las ventanas (o funciones mejor dicho) que tengo abiertas al llamar a la funcion que las abrira.
Se que no es exactamente lo mismo que estas preguntando pero te puede dar una idea.
oApp:aVentanas es un array que al iniciar se define vacio (oApp:aVentanas := {})
Cuando abro el procedimiento o la funcion hago

Code: Select all  Expand view

PROCEDURE Artic()
LOCAL hHand, ....
cVentana := PROCNAME()
IF ASCAN(oApp:aVentanas,cVentana) > 0 // Si ya esta abierta, la selecciono y la restauro
   hHand := ASCAN(oApp:aVentanas,cVentana)
   oApp:oWnd:Select(hHand)
   oApp:oWnd:oWndClient:aWnd[hHand]:Restore()
   RETURN
ENDIF
AADD(oApp:aVentanas,cVentana) // Sino la guardo en la tabla de ventanas abiertas.
 

Al cerrar el procedimiento llamo a esta funcion

Code: Select all  Expand view

STATIC FUNCTION cerrar ( )
LOCAL aNueva := {}, i, j
j := ASCAN(oApp:aVentanas,cVentana)
FOR i := 1 TO LEN(oApp:aVentanas)
    IF i <> j
       AADD(aNueva,oApp:aVentanas[i])
    ENDIF
NEXT i
oApp:aVentanas := ACLONE(aNueva)
RETURN .t.

Rustico pero funciona, tal vez pueda darte una pista

[leandro]

Gracias a todos por las ideas...

Cristobal,

Intente buscar en el array que contiene la información de las ventanas hijas que están abiertas, pero siempre me retorna 0.

Code: Select all  Expand view

********************************************
*BUSCA SI VENTANA ESTA ABIERTA POR EL TITULO
********************************************
Function IsOpen(  )
    Local nAt
    Local aVentanas := oWnd:oWndclient:aWnd  //oWnd ventana principal de la aplicación
    nAt := AScan(aVentanas,"Clientes")
   
Return nAt

 

Lo raro es que la información si esta contenida dentro de ese array



Cesar, gracias por la idea, pero en este momento lo tengo aun mas rustico, cambiando el valor de una variable PUBLIC a .T., así como lo tiene nuestro colega brasileño karinha. Pero la idea es tomar la información de las datas de la clase.

De antemano gracias.

[cnavarro]

Leandro no puedes buscar el titulo de la ventana, porque lo que se guarda en aWnds es el identificador de cada ventana ( hWnd ), fíjate en mi ejemplo y podrás conseguirlo

[JESUS MARIN]

Buenos días Leandro.
Yo lo hago de la siguiente manera (y si es con el nombre de la ventana, creo)
Quizá no sea muy ortodoxo, pero me funciona a las mil maravillas.

1) Tengo una venta MDI Principal. Denominada oWndP. (nota: oWndP, la tengo declarada como MEMVAR al principio del primer módulo, para que sea visible en toda la apliación.)

2) Añado los botones, opciones del menú, etc... y en el ACTION le pongo lo siguiente

ACTION IF( Activa_MDI("Proveedores"), ,Prove() )

3) la function Activa_MDI(cTitle)
Busca si existe una ventana MDI hija con ese nombre, en este caso "Proveedores". Si existe le pasa el foco. En caso contrario se ejecuta el tercer parámetro del IF() que es ejecutar la función y obviamente crear una venta MDI hija, donde le pondremos ese titulo.
nota : obviamente al crear la nueva MDI, le tienes que indicar un nombre. Ojo también con el SET EXACT ON/OFF

Te copio la función tal y como yo la tengo. Si necesitas mas ayuda (y si te puedo ayudar), te monto un ejemplo totalmente funcional.

******************************************************************************
FUNCTION Activa_MDI(cTitle) // Esta funcion selecionada una ventana MDI si ya esta abierta.

LOCAL i:=0, lSuccess:=.f.

cTitle:=upper(cTitle)

FOR i=1 TO LEN(oWndP:oWndClient:aWnd)
IF UPPER( oWndP:oWndClient:aWnd[i]:cCaption )=cTitle
oWndP:oWndClient:aWnd[i]:SetFocus()
lSuccess:=.t.
ENDIF
NEXT
RETURN lSuccess

Return NIL

[leandro]

Jesus gracias por la información, lo solucione con tu aporte.

Cristobal, también gracias por ejemplo, pero para este caso, me parece mas conveniente buscar por el titulo de la ventana, que por el nombre del objeto.