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.
Un Saludo,
Xevi.
Aprendiz de la vida!!!
Xevi.
Aprendiz de la vida!!!
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Forms o Ventanas abiertas
Xevi,
function GetAllWin() --> aWindows
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:
Espero te sirva
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:
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()) 聽
ENDIFEspero te sirva
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()
...
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()
...
static function lCloseMainForm()
Local nForms := 0
AEval( GetAllWin(), {|o| If( o:ClassName() == "TWINDOW" .or. o:ClassName() == "TDIALOG" , nForms ++, ) } )
Return nForms = 1Un Saludo,
Xevi.
Aprendiz de la vida!!!
Xevi.
Aprendiz de la vida!!!
Xevi,
Mejor asi:
Mejor asi:
static function lCloseMainForm()
Local nForms := 0
AEval( GetAllWin(), {|o| If( o:IsDerivedFrom( "TWINDOW" ) .or. o:IsDerivedFrom( "TDIALOG" ), nForms ++, ) } )
Return nForms = 1