FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Evitar cerrar una ventana
Hola, se que es muy facil pero ahora mismo no lo recuerdo.
¿Como hago para que cuando cierre una ventana me pregunte si estoy seguro y si le digo que no abortar esa salida?
|
#2
|
||||
|
||||
Hola,
Usa el evento de los formularios "OnCloseQuery" y su parámetro "CanClose". |
#3
|
|||
|
|||
Tienes 2 opciones ...
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i: integer; begin if MessageDlg('Se va a cerrar la ventana ¿Quieres continuar?', mtConfirmation, [mbYes, mbNo], 0)=mrNo then Abort; end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if MessageDlg('Se va a cerrar la ventana ¿Quieres continuar?', mtConfirmation, [mbYes, mbNo], 0)=mrNo then CanClose := false; end; |
#4
|
|||
|
|||
Muchas gracias, esto a sido rapido.
|
#5
|
|||
|
|||
Y Como tendía que hacerse en Android?
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i: integer; begin if MessageDlg('Se va a cerrar la ventana ¿Quieres continuar?', mtConfirmation, [mbYes, mbNo], 0)=mrNo then Abort; end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if MessageDlg('Se va a cerrar la ventana ¿Quieres continuar?', mtConfirmation, [mbYes, mbNo], 0)=mrNo then CanClose := false; end; Esto no funciona en android. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Evitar cerrar mi programa desde el administrador de tareas | Mrcl | Debates | 22 | 03-03-2007 14:02:04 |
Evitar cerrar un formulario desde un componente | genius | Varios | 1 | 23-11-2006 15:55:42 |
Evitar cerrar form con la tecla ESC... | uper | Varios | 1 | 06-12-2005 20:11:54 |
evitar precionar dos veces F3 para cerrar una forma.... | Arturo | Varios | 3 | 29-08-2005 18:12:42 |
Cerrar Ventana | ronson | OOP | 2 | 17-12-2004 12:38:04 |
|