Page 1 of 1
Saber si ventana MDI esta abierta - ( SOLUCIONADO )
Posted: Mon Sep 30, 2019 4:49 pm
by 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.
Re: Saber si ventana MDI esta abierta
Posted: Mon Sep 30, 2019 5:01 pm
by 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.)
Re: Saber si ventana MDI esta abierta
Posted: Tue Oct 01, 2019 3:17 pm
by 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.
Re: Saber si ventana MDI esta abierta
Posted: Tue Oct 01, 2019 3:30 pm
by karinha
Code: Select all
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.
Re: Saber si ventana MDI esta abierta
Posted: Tue Oct 01, 2019 3:55 pm
by cnavarro
Tienes que buscar el hWnd de la ventana que quieres comprobar
Code: Select all
Function IsOpen( oWndMdi )
local nAt
local oWnd
if ( nAt := AScan( ::aWnd, { | oW | oW:hWnd == oWndMdi:hWnd } ) ) != 0
oWnd = oWndMdi:aWnd[ nAt ]
endif
Return oWnd
Re: Saber si ventana MDI esta abierta
Posted: Wed Oct 02, 2019 3:10 am
by 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
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
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
Re: Saber si ventana MDI esta abierta
Posted: Wed Oct 02, 2019 4:01 pm
by 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
********************************************
*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.
Re: Saber si ventana MDI esta abierta
Posted: Wed Oct 02, 2019 6:25 pm
by 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
Re: Saber si ventana MDI esta abierta
Posted: Wed Oct 16, 2019 9:51 am
by 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:cCaption )=cTitle
oWndP:oWndClient:aWnd:SetFocus()
lSuccess:=.t.
ENDIF
NEXT
RETURN lSuccess
Return NIL
Re: Saber si ventana MDI esta abierta
Posted: Tue Nov 12, 2019 4:20 pm
by 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.