Cerrar Ventana de Dialogo

[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

[acuellar]

William

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

Saludos

Adhemar

[William Chavez Noriega]

Adehmar,
1ero que nada gracias por la ayuda...
2do, donde coloco esta linea... dentro del activate window ?

Gracias Nuevamente

William

William

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

Saludos

Adhemar

[acuellar]

Despues de haber ingresado al programa.

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

Saludos

Adhemar

[William Chavez Noriega]

Muchas Gracias Adhemar...