EQUIVALENTE A BREAK ????

EQUIVALENTE A BREAK ????

Postby sysctrl2 » Mon Jul 21, 2008 10:53 pm

Amigos, en fwh, cual es el equivalente al BREAK de clipper ?




tengo un dialogo mdi ACTIVATE WINDOWS oChild VALIR lSalir

y este no cierra hasta que presiono un BOTON SALIR,

como hacer para que cuando le de salir en la ventana principal,

me cierre todas las ventanas mdi abiertas , sin importar sus VALIDS,


SALUDOS..
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
sysctrl2
 
Posts: 1027
Joined: Mon Feb 05, 2007 7:15 pm

Postby quique » Mon Jul 21, 2008 11:02 pm

prueba con

ACTIVATE WINDOW oWnd VALID ( aEval( oWnd:oWndClient:aWnd, { |o| o:bValid := nil } ), .t. )
Saludos
Quique
User avatar
quique
 
Posts: 408
Joined: Sun Aug 13, 2006 5:38 am

Postby sysctrl2 » Tue Jul 22, 2008 4:00 pm

Gracias Quique,

voy a probar. gracias.
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
sysctrl2
 
Posts: 1027
Joined: Mon Feb 05, 2007 7:15 pm

Postby sysctrl2 » Tue Jul 22, 2008 4:42 pm

Quique, Gracias,

Funciona exelente sin tener que cerrar ventana por ventana ,,


ACTIVATE WINDOW oWnd MAXIMIZED ;
ON INIT (oWnd:SetMenu( _MenuInicial() ), iif( _iniciaPos(),(_ScPos( 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 )
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
sysctrl2
 
Posts: 1027
Joined: Mon Feb 05, 2007 7:15 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 64 guests

cron