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... |
#7
|
||||
|
||||
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.
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
__________________
Ivan Lora http://www.arrobasoft.da.ru Valientes son aquellas personas que triunfan donde otros fracasan. Bienaventurado los que nada esperan porque jamas seran defraudados. |
|
|
|