|
Vamos a hacerlo con un ejemplo:
Creamos 3 formularios y lo dejamos que sean AutoCreate.
Ahora en el formulario TForm1 le asociamos un botón que en su evento OnClick tenga la apertura del TForm2.
Form2.ShowModal;
En el formulario TForm3 añadimos dos botones, uno con ModalResult a mrYes y el otro a mrNo.
En el evento OnCloseQuery del TForm2 añadimos el siguiente código:
CanClose := (Form3.ShowModal = mrYes);
Si ejecutamos esta aplicación al cerrar el formulario 2 si pulsas sobre el botón con valor de retorno mrYes se cierra y si es mrNo (o cualquier otro valor) no.
|