cancelar el cierre de ventana

[[Delphius]]

Empezado por roman

Vaya, se me adelantó Bicho Dejemos mi contribución en lo del evento OnCloseQuery

Y tu a mi... cuando pulsé en responder y al abrir la pagina vi que tu justo habías puesto exactamente el código que intentaba poner... pues ya no se que decir... solo que ¡me ganaste!

Saludos,

[joHn je@N]

Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if (Application.MessageBox('¿Desea cerrar?', 'Confirmar',
    MB_YESNO or MB_ICONWARNING) = ID_NO) then
    Application.Run;
end;

Yo lo he hecho así (El código de arriba) y me ha funcionado pero, no se exactamente que diferencia tengan las instrucciones.(Con respecto a la solución que dio roman)

Alguien me podría decir.
Gracias!!

Saludos