![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
![]() Hola Amigos,
![]() 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. |
![]() |
|
|
![]() |
|