![]() |
![]() |
![]() |
![]() |
![]() |
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... |
![]() |
|
|
![]() |
|