![]() |
![]() |
![]() |
![]() |
![]() |
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,
mi duda es saber si al pulsar sobre la (X) de un formulario para cerrarlo, podemos preguntarle al usuario si 'esta seguro de salir', y en caso de cancelar la operacion de cerrar, como podemos cancelar ese evento para que no nos cierre el formulario y poder seguir trabajando?. He probado a utilizar en el evento OnDestroy y onClose, un Exit y un Abort, pero no he conseguido el resultado que queria. Saludos y muchas gracias Ejemplo Codigo: procedure TRecargasTelef.FormDestroy(Sender: TObject); begin if Application.MessageBox('¿Desea salir de Recargas Telefónicas 1.0?', 'Recargas telefónicas 1.0', MB_ICONQUESTION + MB_OKCANCEL) = mrOK then begin //***********// close; end else Abort; end; |
#2
|
|||
|
|||
Prueva en el Evento onCloseQuery del Form Principal:
Código:
procedure TFmMenu.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if Application.MessageBox('¿Desea salir de Recargas Telefónicas 1.0?', 'Recargas telefónicas 1.0', MB_ICONQUESTION + MB_OKCANCEL) = mrOK then CanClose := True else CanClose := False; end;
__________________
.:.::FRANKER::.:. |
#3
|
|||
|
|||
Ya he conseguido resolver mi problema. Despues de consulta la ayuda de delphi, he encontrado hasta un ejemplo. Siento la evidencia del error.
Voy a poner el ejemplo, para el que le pueda interesar. Saludos. procedure TRecargasTelef.FormClose(Sender: TObject; var Action: TCloseAction); begin if Application.MessageBox('¿Desea salir de Recargas Telefónicas 1.0?', 'Recargas telefónicas 1.0', MB_ICONQUESTION + MB_OKCANCEL) = mrOK then WeraocxRecarga.ClosePlugin else Action := caNone; // cancela el evento de cerrar la ventana end; ![]() |
![]() |
|
|
![]() |
|