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?
|
Hola,
Usa el evento de los formularios "OnCloseQuery" y su parámetro "CanClose". |
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; |
Muchas gracias, esto a sido rapido.
|
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. |
La franja horaria es GMT +2. Ahora son las 08:37:14. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi