Cerrar MDI y Application.MessageBox
 

Hola Amigos,:D tengo otra pregunta que quizas uds me podrian responder. es hacerca de un Form MDI ke tengo. Ahora bien quiero cerrarlo pero antes quiero que me de la posibilidad de preguntarme si realmente lo quiero.

escribi esto:

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 Close;
end;
end.

pero al hacer click en el boton de cancelar, cierra igual. lo mismo con el boton de la cruz.

desde ya muchas gracias y estaremosnos viendo pronto

Usa el evento OnCloseQuery.

// Saludos

MaJeSTIC

Te ruego que los asuntos relacionados con los temas del foro los trates aquí mismo con el fin de que todos puedan participar. Transcribo aquí tu mensaje privado.


Te recomiendo que leas la ayuda acerca del evento OnCloseQuery, en particular de su parámetro CanClose.

// Saludos

Gracias :)
 

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....:D

Tal y como te decia roman utiliza el evento OnCloseQuery.
Saludos.

Utilice esto...
 

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

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