Problema al cerrar formulario

[mizzard]

Hola, se me presenta el siguiente problema.

Digamos que tengo un formulario principal y que cuando pulso un boton muestro otro:

        TfrmRetirarTarjeta *frmRetirarTarjeta;
        frmRetirarTarjeta = new TfrmRetirarTarjeta(this);
        frmRetirarTarjeta->ShowModal();

El caso es que una vez que lo abro desactivo el timer del formulario principal (que detecta eventos) y habilito el timer del nuevo formulario.

Mi intención es que cuando se detecte el evento automáticamente se cierre el formulario y volver al principal.

Debugeando he visto como efectivamente lo hace todo bien, pero cuando llega a la linea:

Close();

La ignora y no lo cierra. He probado con un boton en el nuevo formulario y la misma linea de codigo y si que va. Tambien he probado con CloseModal() y nada...

No le encuentro sentido..., ideas?

Un saludo!

[[escafandra]]

No entiendo porque usas un formulario modal, éstos se usan para bloquear la aplicación y requerir al usuario cierta acción que precisa su intervención.

En cualquier caso y sin ver tu código de cierre, intuyo tu problema. Posiblemente tengas definida la variable frmRetirarTarjeta dos veces, una como global y otra como local en la función donde creas el formulario modal. A demás, posiblemente, tu Formulario frmRetirarTarjeta lo definiste como autocreado y no como disponible.

Si frmRetirarTarjeta es un autocreado esto te servirá:

// Mostrar
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Timer1->Enabled = true;
   frmRetirarTarjeta->ShowModal();
}

// Cerrar
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   Timer1->Enabled = false;
   frmRetirarTarjeta->Close();
}

En otro caso debes declarar frmRetirarTarjeta como global o como miembro de Form1 y proceder así:

// Global...
TfrmRetirarTarjeta *frmRetirarTarjeta;

// Mostrar
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Timer1->Enabled = true;
   frmRetirarTarjeta = new TfrmRetirarTarjeta(this);   
   frmRetirarTarjeta->ShowModal();
   Timer1->Enabled = false;   
}

// Cerrar
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
   Timer1->Enabled = false;
   frmRetirarTarjeta->Close();
}

// Y definir el evento OnClose de TfrmRetirarTarjetapara destruir el formulario y liberarlo de la RAM
void __fastcall TfrmRetirarTarjeta::FormClose(TObject *Sender, TCloseAction &Action)
{
   Action = caFree;
}

Saludos.

[mizzard]

hola, gracias por la respuesta, es justo lo q necesitaba.

El problema lo tenia porque me habia hecho un lio y desactivaba el timer del form principal y activaba el del secundario y la cosa no iba bien.

Al tener control desde el timer del principal (que como está abierto en segundo plano) todo funciona perfectamente y con menos código.

Muchas gracias por tu amable ayuda.

Un saludo!