Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-03-2008
Ubed Ubed is offline
Miembro
 
Registrado: ago 2007
Posts: 71
Poder: 17
Ubed Va por buen camino
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?
Código Delphi [-]
if MessageDlg('Se va a cerrar la ventana ¿Quieres continuar?', mtConfirmation, [mbYes, mbNo], 0)=mrNo then
  (¿Que debo poner aqui?);
Responder Con Cita
  #2  
Antiguo 11-03-2008
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Usa el evento de los formularios "OnCloseQuery" y su parámetro "CanClose".
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #3  
Antiguo 11-03-2008
clopezr clopezr is offline
Registrado
 
Registrado: ene 2006
Posts: 2
Poder: 0
clopezr Va por buen camino
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;
Responder Con Cita
  #4  
Antiguo 11-03-2008
Ubed Ubed is offline
Miembro
 
Registrado: ago 2007
Posts: 71
Poder: 17
Ubed Va por buen camino
Muchas gracias, esto a sido rapido.
Responder Con Cita
  #5  
Antiguo 12-02-2021
Hmartinazzi Hmartinazzi is offline
Registrado
 
Registrado: oct 2015
Posts: 3
Poder: 0
Hmartinazzi Va por buen camino
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.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Evitar cerrar mi programa desde el administrador de tareas Mrcl Debates 22 03-03-2007 15:02:04
Evitar cerrar un formulario desde un componente genius Varios 1 23-11-2006 16:55:42
Evitar cerrar form con la tecla ESC... uper Varios 1 06-12-2005 21:11:54
evitar precionar dos veces F3 para cerrar una forma.... Arturo Varios 3 29-08-2005 19:12:42
Cerrar Ventana ronson OOP 2 17-12-2004 13:38:04


La franja horaria es GMT +2. Ahora son las 17:33:54.


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
Copyright 1996-2007 Club Delphi