FiveTech Software tech support forums

... *------------------------------------------------------* local i:=0,lSuccess:=.f. cTitle:=upper(cTitle) FOR i=1 to len(oWnd:oWndClient:aWnd) IF upper( oWnd:oWndClient:aWnd[i]:cCaption )=cTitle oWnd:oWndClient:aWnd[i]:SetFocus() lSuccess:=.t. ENDIF NEXT RETURN lSuccess

... *------------------------------------------------------* local i:=0,lSuccess:=.f. cTitle:=upper(cTitle) for i=1 to len(oWnd:oWndClient:aWnd) if upper( oWnd:oWndClient:aWnd[i]:cCaption )=cTitle oWnd:oWndClient:aWnd[i]:SetFocus() lSuccess:=.t. endif next Return lSuccess

... DIALOG NOWAIT and MDICHILD which I have found is that :- 1) DIALOG NOWAIT does not have Minimize & Maximize button. 2) wndMain():oWndClient:aWnd[i] does not work My App's starting Window is MDI. My intention for using MDICHILD window was that the user should not get struck with only a window ...

... De esta forma hacia el cambio de imagen pero lo que me pasaba era que tenia el mismo ancho de la imagen al boton de tres puntos activate dialog aWnd[ 2 ] nowait ; on init ( aWnd[ 2 ]:move( 0,0 ) , ; oBrw:aCols[ 3 ]:oBtnElip:cCaption:="",; oBrw:aCols[ 3 ]:oBtnElip:LoadBitMaps("busca") ) ; VALID ...

... Checking for MDI child windows If you need to check for MDI child windows you can look at oWnd:oWndClient:aWnd which is an array of MDI child windows objects. You can check the captions: oWnd:oWndClient:aWnd[1]:cCaption Here is an example ...

Prueba esto, a ver si te funciona.

Function CerrarVent()
local n:=0

if Len( oWnd:oWndClient:aWnd ) > 0
For n := 1 to Len( oWnd:oWndClient:aWnd )
oWnd:oWndClient:aWnd[n]:Close
Next
endif

Return nil

Saludos.

Mike Serra wrote:Buenos dias foro!

¿Sabeis como averiguar en una aplicación MDI si tengo ventanas abiertas?

MUCHAS Gracias

comprueba:

Len( oWnd:oWndClient:aWnd ) > 0

Siendo oWnd el padre ('OF') de las ventanas MDICHILD.

Saludos
Carlos G.

... oWnd )) ,.t. ) ); VALID _salir() function _salir() local lSalir := .f. if MsgYesNo( "Salir ahora .. ?", cUser ) aEval( oWnd:oWndClient:aWnd, { |o| o:bValid := nil } ) lLog := .t. endif return ( lLog )

prueba con

ACTIVATE WINDOW oWnd VALID ( aEval( oWnd:oWndClient:aWnd, { |o| o:bValid := nil } ), .t. )

... Regards, James ------------------------- Checking for MDI child windows If you need to check for MDI child windows you can look at oWnd:oWndClient:aWnd which is an array of MDI child windows objects. You can check the captions: oWnd:oWndClient:aWnd[1]:cCaption See \carrot\common\ordWndCount() for ...

Hello James,

if Gurus have time you get what you need. Thanks again.
Now it works.
Regards,
Otto

if Len( oWnd:oWndClient:aWnd ) > 0
msginfo("hWnd: " + str(oWnd:oWndClient:aWnd[1,1]) + " "+ GetWindowText( oWnd:oWndClient:aWnd[1,1] ) )
endif
oWnd:CloseAll()

Otto,

I believe all the MDI child windows are stored in this array.

wndMain():oWndClient:aWnd[ ]

James

todas window:

oWnd:IconizeAll() - minimizar todas

ASend( oWnd:oWndClient:aWnd,"MAXIMIZE" ) - maximizar todas


Espero ter ajudado

... común ya no está la ventana activa en la mdi que la llamo. Por tanto creo que no me vale GetActive() En cuanto a "if upper( oWnd:oWndClient:aWnd[i]:cCaption )=cTitle", obviamente me sirve si paso "cTitle" a la función. El problema es que he puesto un ejemplo sencillo, la realidad es una ...

if upper( oWnd:oWndClient:aWnd[i]:cCaption )=cTitle
....