| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Alpha120
Lt
Registrado: 11 Mar 2007Mensajes: 99Ubicación: Sevilla, España
|
 Publicado: Lun 02 Abr, 2007 3:54 pm Asunto: MessageDlg no cierra ¿? |
 |
|
Holas, aqui vengo otra vez con una duda sobre un problema extraño a mi parecer.
Tengo el siguiente código:
| Código: |
if (MessageDlg("¿Guardar datos?",mtConfirmation, TMsgDlgButtons()<<mbYes<<mbNo, 0) == mrYes)
{
... aquí va más código ...
}
else
Form1->Close();
|
Pero el Close() no me va, lo he tenido que hacer con Form1->Hide();
Application->Terminate() no me sirve porque me finaliza la aplicación, solo quiero que se cierre el Form1
Alguna sugerencia?
_________________
Saludos, Alpha. |
|
| Volver arriba |
|
 |
Buildero
Master
Registrado: 23 Dic 2003Mensajes: 523Ubicación: Puebla, México
|
| Publicado: Lun 02 Abr, 2007 5:00 pm Asunto: |
|
|
¿En que evento estás agregando tú código?
_________________
Quien hace una pregunta teme parecer un ignorante durante cinco minutos, quien no pregunta se mantiene ignorante toda la vida. |
|
| Volver arriba |
|
|
Alpha120
Lt
Registrado: 11 Mar 2007Mensajes: 99Ubicación: Sevilla, España
|
| Publicado: Lun 02 Abr, 2007 8:39 pm Asunto: |
|
|
En OnClose del Form, será por eso??
_________________
Saludos, Alpha. |
|
| Volver arriba |
|
|
Buildero
Master
Registrado: 23 Dic 2003Mensajes: 523Ubicación: Puebla, México
|
| Publicado: Lun 02 Abr, 2007 9:08 pm Asunto: |
|
|
Si ya estás capturando el evento, no tendría sentido volver a indicar Close. El flujo del programa indica que se esta cerrando el form, sería redundante.
Un ejemplo utilizando el evento OnCloseQuery:
| Código: | void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
if ( Application->MessageBoxA("¿Desea salir?",
"Confirme", MB_YESNO | MB_ICONQUESTION) != mrOk )
CanClose = false;
} |
CanClose es una variable booleana que maneja el evento, y por default tiene el valor true por lo que si alteras su valor a false, el formulario no se cerrará.
Saludos!
_________________
Quien hace una pregunta teme parecer un ignorante durante cinco minutos, quien no pregunta se mantiene ignorante toda la vida. |
|
| Volver arriba |
|
|
Alpha120
Lt
Registrado: 11 Mar 2007Mensajes: 99Ubicación: Sevilla, España
|
| Publicado: Lun 02 Abr, 2007 9:15 pm Asunto: |
|
|
Gracias Buildero.
_________________
Saludos, Alpha. |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
