Forms o Ventanas abiertas

[Xevi]

Necesito saber los Forms o Ventanas abiertas en mi aplicación.

Hay una función que me devuelva las oWnd/oDlg abiertas ???

Algo así como WndMain():aForms ...

Gracias.

[Antonio Linares]

Xevi,

function GetAllWin() --> aWindows

[cmsoft]

Generalmente, las ventanas se habren al llamado de una funcion o procedimiento.
Lo que puedes hacer es ir llevando un registro de cada apertura, para luego, si se vuelve a llamar estando abierta, simplemente hacer un restauracion de la ventana (tene en cuenta que las ventanas pueden estar minimizadas, o fuera de foco)
Yo lo hago de esta manera:

Code: Select all

IF ASCAN(oApp:aVentanas,ProcName()) > 0
   hHand := ASCAN(oApp:aVentanas,cVentana)
   oApp:oWnd:Select(hHand)
   oApp:oWnd:oWndClient:aWnd[hHand]:Restore()
   RETURN
   ELSE
   AADD(oApp:aVentanas,ProcName())   
ENDIF
 

Espero te sirva

[Xevi]

Gracias... probaré esta solución o incluso la aprovecho para un caso en el que estava pensando.

Al final, me he creado una función (de la mano de GetAllWin()) con la que controlo el cierre de la WINDOW principal
la llamo así
ACTIVATE WINDOW oWnd CENTERED VALID lCloseMainForm()
...

Code: Select all

static function lCloseMainForm()
   Local nForms := 0

   AEval( GetAllWin(), {|o| If( o:ClassName() == "TWINDOW" .or. o:ClassName() == "TDIALOG" , nForms ++, ) } )
   
Return nForms = 1
 

[hmpaquito]

Xevi,

Mejor asi:

Code: Select all

static function lCloseMainForm()
   Local nForms := 0

   AEval( GetAllWin(), {|o| If( o:IsDerivedFrom( "TWINDOW" ) .or. o:IsDerivedFrom( "TDIALOG" ), nForms ++, ) } )
   
Return nForms = 1