Confirmación de cerrar ventana.

[[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...