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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 04-08-2004
MaJeSTiC MaJeSTiC is offline
Miembro
 
Registrado: jul 2004
Ubicación: Villa Urquiza Cap. Fed - Buenos Aires - Argentina
Posts: 30
Poder: 0
MaJeSTiC Va por buen camino
Talking Cerrar MDI y Application.MessageBox

Hola Amigos, tengo otra pregunta que quizas uds me podrian responder. es hacerca de un Form MDI ke tengo. Ahora bien quiero cerrarlo pero antes quiero que me de la posibilidad de preguntarme si realmente lo quiero.

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
Responder Con Cita
  #2  
Antiguo 04-08-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.138
Poder: 10
roman Tiene un aura espectacularroman Tiene un aura espectacular
Usa el evento OnCloseQuery.

// Saludos
Responder Con Cita
  #3  
Antiguo 04-08-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.138
Poder: 10
roman Tiene un aura espectacularroman Tiene un aura espectacular
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:
Empezado por MaJeSTIC
Amigo, en el evento OnCloseQuery pasa lo mismo...

gracias
Te recomiendo que leas la ayuda acerca del evento OnCloseQuery, en particular de su parámetro CanClose.

// Saludos
Responder Con Cita
  #4  
Antiguo 04-08-2004
MaJeSTiC MaJeSTiC is offline
Miembro
 
Registrado: jul 2004
Ubicación: Villa Urquiza Cap. Fed - Buenos Aires - Argentina
Posts: 30
Poder: 0
MaJeSTiC Va por buen camino
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....
Responder Con Cita
  #5  
Antiguo 04-08-2004
Avatar de tgsistemas
tgsistemas tgsistemas is offline
Miembro
 
Registrado: dic 2003
Ubicación: Barcelona
Posts: 149
Poder: 14
tgsistemas Va por buen camino
Post

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;
Saludos.
__________________
Toni | blog
Responder Con Cita
  #6  
Antiguo 04-08-2004
MaJeSTiC MaJeSTiC is offline
Miembro
 
Registrado: jul 2004
Ubicación: Villa Urquiza Cap. Fed - Buenos Aires - Argentina
Posts: 30
Poder: 0
MaJeSTiC Va por buen camino
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...
Responder Con Cita
  #7  
Antiguo 05-08-2004
Avatar de @-Soft
@-Soft @-Soft is offline
Miembro
 
Registrado: may 2003
Ubicación: Santo Domingo, Rep. Dom.
Posts: 200
Poder: 15
@-Soft Va por buen camino
Smile

hola

yo lo hice de la siguiente manera: Ojo no tengo directamente el codigo aqui, pero voy a tratar de recordar si escribo algo incorrecto pues ya saben porque.

Código Delphi [-]
procedure TMainFormMDI.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if Application.MessageBox('Desea Continuar...','Esta a punto de cerrar xxx',mb_YesNo+mb_IconExclamation)= IdYes
then 
 Action := caFree;
end else
 Abort; 
end;
end.


bueno
despues en la barra de elementos que tengo en mi aplicacion coloque un boton para cerrar la aplicacion y solo escribi un simple Close y al dispararse el evento y dependiendo de la respuesta La Form se cierra o no.

Salu2
__________________
Ivan Lora

http://www.arrobasoft.da.ru

Valientes son aquellas personas que triunfan donde otros fracasan.
Bienaventurado los que nada esperan porque jamas seran defraudados.
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


La franja horaria es GMT +2. Ahora son las 14:07:29.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi