Confirmación de cerrar ventana.

[roman]

Usa el evento OnCloseQuery del primer formulario para llamar al segundo. Por otra parte, quizá no lo sepas pero no es necesario usar un segundo formulario para preguntar al usuario ya que puedes hacer uso de la función MessageBox de la API de Windows:

Código Delphi [-]
if MessageBox(
  Handle, 
  '¿Seguro que desea salir de la aplicación?',
  'Confirmar',
  MB_ICONWARNING or MB_YESNO
) = IDNO then
  abort;

// Saludos

[gontxalo]

Hola Roman. Prefiero hacerlo con otro form que lleva iconos y logotipo.
En el Form 1, en evento doy doble click en CloseQuery. Me sale en el code:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Form3.ShowModal;
end;

Después del begin pongo Form3.ShowModal; Está bien?

En el form principal tengo varios botones y uno de ellos es salir. Cuando doy al botón llamo al Form3 que es el mismo que llamo con el CLoseQuery dando a cerrar (x) de la ventana principal. Funciona. De las dos maneras sale el Form3.

En el Form3 tengo los botones de si y no. Primero estoy haciendo el no. code:

procedure TForm3.Button2Click(Sender: TObject);
begin
Close;
end;

He puesto close; está bien?

Lo que tiene que hacer el form3, boton de no, es cerrar solo el form3. Cuando el Form3 se abre desde el botón de salida del form principal, funciona, se cierra sólo el Form3. Pero si el form3 se abre por darle a la (X) cerrar del Form principal, al darle al botón de no del Form3 se cierra el form3 y el form principal, los dos, y tendría que cerrarse sólo el form3.
Que hago mal?

Gracias.-

[roman]

En principio no debería haber diferencia pero vamos a organizarlo mejor.

ShowModal es una función y es su valor de regreso lo que debes examinar en el OnCloseQuery del form principal:

Código Delphi [-]
CanClose := (Form3.ShowModal = mrYes);

No necesitas programarle nada a los botones de Form3. En su propiedad ModalResult pon mrYes para el botón "SÍ" y mrNo para el botón "NO".

Cuando presionas uno de ellos, el formulario Form3 se cierra y ShowModal regresa el valor de la propiedad ModalResult del botón oprimido. (Un formulario modal se cierra automáticamente en cuanto su propiedad ModalResult, que se establece por los botones, es distinta de cero, mrNone).

// Saludos

[gontxalo]

Hola Roman gracias por la ayuda.

El code del form principal queda así:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := (Form3.ShowModal = mrYes);
end;

Y he quitado la programación de los botones del form3. Les he puesto en el modal result mrYes para el botón si y mrNo para el botón no. Lo he probado y cuando cierro la ventana principal con la X salta el form 3 y funcionan correctamente los dos botones. El no solo cierra el form3 y el si cierra el form3 y el form1.
Pero cuando doy al botón salir del principal form, salta el form3 (bien) y le doy al botón no y funciona correctamente, se cierra sólo el form3, pero le doy al botón si y sólo se cierra el form3 y el form principal no se cierra. En teoría tiene que cerrar los dos.

Hay algo que hago mal?

tengo que poner algo más?

Gracias otra vez.

[roman]

Empezado por gontxalo

Hay algo que hago mal?

tengo que poner algo más?

No y no. Al menos no me lo parece y acabo de probarlo y funciona bien. ¿Qué código usas en el botón Salir del formulario principal?

Quizá alguna otra cosa esté afectando. Prueba hacerlo en un proyecto vacío.

// Saludos

[gontxalo]

Hola Roman
Lo he probado en uno nuevo y tampoco. Me hace lo mismo que te comentaba. Con la x del principal funciona y dando al botón del principal el no funciona y el si sólo cierra el segundo form quedando el principal abierto.

El code del botón de salir del principal es:

procedure TForm1.Button5Click(Sender: TObject);
begin
Form3.ShowModal;
end;

Gracias.

[CAOS]

Tiene pinta de que no estás devolviendo bien el valor de retorno del ShowModal.

Asegurate que tu botón indica mrYes o que el ModalResult es igual a mrYes, que es con el valor que estás haciendo la comparación.

[[maeyanes]]

Empezado por gontxalo

Hola Roman

No soy Roman, pero vamos a contestar... jejeje

Lo he probado en uno nuevo y tampoco. Me hace lo mismo que te comentaba. Con la x del principal funciona y dando al botón del principal el no funciona y el si sólo cierra el segundo form quedando el principal abierto.

El code del botón de salir del principal es:

procedure TForm1.Button5Click(Sender: TObject);
begin
Form3.ShowModal;
end;

Gracias.

Aquí está tu problema... en el código del evento debes poner:

Código Delphi [-]
procedure TForm1.Button5Click(Sender: TObject);
begin
  Close
end;

El evento CloseQuery siempre se ejecuta al momento de mandar cerrar una ventana, así que lo que tenías antes ya debe funcionar bien...


Saludos...