cancelar el cierre de ventana

[Max_E.]

hola a todos de nuevo:

cual es el codigo que me muestre un cuadro de dialogo con botones aceptar y calcelar, y como ago para identificar que boton se preciono ?
mas o memos esto quiero hacer

Código Delphi [-]
showmessageokcancel('seguro de cerrar') 
if showmessageokcancel=ok then
close;
if showmessageokcancel=cancel then
label1.caption:='modificar';

gracias por la ayuda.

[[Bicho]]

Hola,

puedes usar un MessageBox o MessageDlg. Un ejemplo:

Código Delphi [-]
if (MessageBox(0, '¿Desea cerrar la aplicacion?', 'Cerrar', MB_ICONQUESTION or MB_YESNO) = idYes) then

Espero te sirva.

Saludos

[roman]

En el evento OnCloseQuery del formulario:

Código Delphi [-]
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := Application.MessageBox('¿Desea cerrar?', 'Confirmar', MB_YESNO or MB_ICONWARNING) = ID_YES
end;

EDITO:

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

// Saludos

[[Delphius]]

Originally Posted by 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