Cerrar Ventana de Dialogo
Posted: Tue May 19, 2009 9:26 pm
Hola Muchachos,
Normalmente para salir de un dialogo presiono el boton correspondiente en mi barra de herramientas, Cuando hago esto valido ciertos detalles en una funcion "salir()". Lo que no se, es como hacer que mi programa vaya a esta funcion cuando doy click en el boton cerrar[x] que esta en la parte superior derecho del dialogo junto a maximizar o minimizar, aqui las lineas de mi programa...
DEFINE WINDOW oWndPar MDICHILD OF oWndMain TITLE "Parametros del Sistema" STYLE NOR(WS_OVERLAPPED + WS_CAPTION + WS_SYSMENU + WS_MINIMIZEBOX )
DEFINE DIALOG oDlg RESOURCE "Fld_Par0" OF oWndPar
...
...
ACTIVATE DIALOG oDlg CENTER NOWAIT ON INIT ( oDlg:move(0,0), CURSORARROW() ) VALID ( iif(Salir(), (oWndPar:END(), .T.), .F.) )
ACTIVATE WINDOW oWndPar ON INIT ( oWndPar:SetSize( oDlg:nWidth+1, oDlg:nHeight+14 ), oWndPar:CENTER() )
Alguien por favor me puede ayudar
Gracias de antemano
William Chavez Noriega
Lima - Peru
Normalmente para salir de un dialogo presiono el boton correspondiente en mi barra de herramientas, Cuando hago esto valido ciertos detalles en una funcion "salir()". Lo que no se, es como hacer que mi programa vaya a esta funcion cuando doy click en el boton cerrar[x] que esta en la parte superior derecho del dialogo junto a maximizar o minimizar, aqui las lineas de mi programa...
DEFINE WINDOW oWndPar MDICHILD OF oWndMain TITLE "Parametros del Sistema" STYLE NOR(WS_OVERLAPPED + WS_CAPTION + WS_SYSMENU + WS_MINIMIZEBOX )
DEFINE DIALOG oDlg RESOURCE "Fld_Par0" OF oWndPar
...
...
ACTIVATE DIALOG oDlg CENTER NOWAIT ON INIT ( oDlg:move(0,0), CURSORARROW() ) VALID ( iif(Salir(), (oWndPar:END(), .T.), .F.) )
ACTIVATE WINDOW oWndPar ON INIT ( oWndPar:SetSize( oDlg:nWidth+1, oDlg:nHeight+14 ), oWndPar:CENTER() )
Alguien por favor me puede ayudar
Gracias de antemano
William Chavez Noriega
Lima - Peru