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.
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
static function lCloseMainForm()
Local nForms := 0
AEval( GetAllWin(), {|o| If( o:ClassName() == "TWINDOW" .or. o:ClassName() == "TDIALOG" , nForms ++, ) } )
Return nForms = 1
static function lCloseMainForm()
Local nForms := 0
AEval( GetAllWin(), {|o| If( o:IsDerivedFrom( "TWINDOW" ) .or. o:IsDerivedFrom( "TDIALOG" ), nForms ++, ) } )
Return nForms = 1
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 10 guests