Xailer & OZ Software

Hola, alguien me puede ayudar en lo siguiente:
En un formulario, cuando doy al boton OK de aceptar me va a un METHOD
definido
Lo que quiero es cuando doy al boton Salir, o al boton X del formulario o a
la combinacion
de teclas Alt+F4, se vaya a otro METHOD diferente antes de salir del
programa
¿como puedo hacer esto? Gracias.

Hola,
Mira el evento TForm:onClose, en la documentación lo pone bastante claro
la forma de manejarlo.
Saludos. Miguel A. Torrellas
PILO escribió:
> Hola, alguien me puede ayudar en lo siguiente:
> En un formulario, cuando doy al boton OK de aceptar me va a un METHOD
> definido
> Lo que quiero es cuando doy al boton Salir, o al boton X del formulario o a
> la combinacion
> de teclas Alt+F4, se vaya a otro METHOD diferente antes de salir del
> programa
> ¿como puedo hacer esto? Gracias.
>
>

Muchas Gracias, me habia atorado y no veia dicho proceso
"Miguel A. Torrellas" <miguel@torrellas.net> escribió en el mensaje
news:[email=45e1b483@news.xailer.com...]45e1b483@news.xailer.com...[/email]

Como compruebo en el cierre del formulario que no se ha pulsado el boton de
aceptar que tiene
en el nModalresul = mrOK
No consigo hacerlo

PILO,
> Como compruebo en el cierre del formulario que no se ha pulsado el boton
> de aceptar que tiene
> en el nModalresul = mrOK
> No consigo hacerlo
nModalResult tiene el valor que tenga la propiedad nModalResult del botón
que cerró el formulario. Si el formulario se cierra con la X, con escape,
con Alt+F4, etc., entonces nModalResult = mrNONE
Aprovecho para indicar que la forma más sencilla y práctica de manejar los
formularios de tipo diálogo con botones de aceptar y cancelar (o incluso
otros tipos de diálogos) es controlarlos desde la misma llamada. P.ej.,
supongamos que tenemos un botón 'oButton1' en un formulario, que al pulsarlo
tiene que mostrar un diálogo de tipo aceptar/cancelar y que si el usuario
pulsa aceptar tiene que hacer una determinada cosa. Pues sería algo así:
METHOD Button1Click( oSender ) CLASS TForm1
WITH OBJECT TForm2():New( Self )
IF :ShowModal() == mrOK
// Aqui viene el codigo que hay que ejecutar
// si el usuario ha pulsado 'aceptar'
ENDIF
END
RETURN Nil
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info