FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Cerrar MDI y Application.MessageBox
Hola Amigos, 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 |
#2
|
||||
|
||||
Usa el evento OnCloseQuery.
// Saludos |
#3
|
||||
|
||||
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. Cita:
// Saludos |
#4
|
|||
|
|||
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.... |
#5
|
||||
|
||||
Tal y como te decia roman utiliza el evento OnCloseQuery.
Código:
CanClose := false; if MessageDlg(' ¿ Quieres cerrar la ventana ?', mtCustom,[mbYes, mbNo], 0)= mrYes then CanClose := True; |
#6
|
|||
|
|||
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... |
|
|
|