Cerrar MDI y Application.MessageBox

[MaJeSTiC]

Gracias y lo siento la verdad aun no se como manejarme por el foro.

muchas gracias por el tip... y estem... es verdad... aun no lei la ayuda :P

Nos vemos....

[tgsistemas]

Tal y como te decia roman utiliza el evento OnCloseQuery.

	
  CanClose := false;
  if MessageDlg(' ¿ Quieres cerrar la ventana ?', mtCustom,[mbYes, mbNo], 0)= mrYes then
    CanClose := True;

Saludos.

[MaJeSTiC]

procedure TMainFormMDI.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if Application.MessageBox('Desea Continuar...',
'Esta a punto de cerrar xxx',mb_OkCancel+mb_IconExclamation)= IdOk
then
Action:=CaFree
else
Action:=CaNone;
end;



Gracias a todos...

[@-Soft]

hola

yo lo hice de la siguiente manera: Ojo no tengo directamente el codigo aqui, pero voy a tratar de recordar si escribo algo incorrecto pues ya saben porque.

Código Delphi [-]
procedure TMainFormMDI.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if Application.MessageBox('Desea Continuar...','Esta a punto de cerrar xxx',mb_YesNo+mb_IconExclamation)= IdYes
then 
 Action := caFree;
end else
 Abort; 
end;
end.

bueno
despues en la barra de elementos que tengo en mi aplicacion coloque un boton para cerrar la aplicacion y solo escribi un simple Close y al dispararse el evento y dependiendo de la respuesta La Form se cierra o no.

Salu2