Page 1 of 1

Cerrar Ventana de Dialogo

Posted: Tue May 19, 2009 9:26 pm
by William Chavez Noriega
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

Re: Cerrar Ventana de Dialogo

Posted: Tue May 19, 2009 9:39 pm
by acuellar
William

Tenes que colocar oWndPar:bValid:={ || salir() }

Saludos

Adhemar

Re: Cerrar Ventana de Dialogo

Posted: Tue May 19, 2009 9:43 pm
by William Chavez Noriega
Adehmar,
1ero que nada gracias por la ayuda...
2do, donde coloco esta linea... dentro del activate window ?

Gracias Nuevamente

William
acuellar wrote:William

Tenes que colocar oWndPar:bValid:={ || salir() }

Saludos

Adhemar

Re: Cerrar Ventana de Dialogo

Posted: Tue May 19, 2009 10:02 pm
by acuellar
Despues de haber ingresado al programa.

Por Ej: si te pide clave y es correcta, entonces coloca la lĂ­nea.

Saludos

Adhemar

Re: Cerrar Ventana de Dialogo

Posted: Tue May 19, 2009 11:09 pm
by William Chavez Noriega
Muchas Gracias Adhemar...