Foros Club Delphi - Cerrar formulario

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - Cerrar formulario (https://www.clubdelphi.com/foros/showthread.php?t=88959)

Angel.Matilla

03-09-2015 12:12:13

Cerrar formulario

Para probar que un código es correcto estoy forzando que tenga lugar un error al ejecutar un query en FB.

Código:

void __fastcall TfLisCar::FormCreate(TObject *Sender)

{

     Query->Close();

     Query->SQL->Text = "SELECT DISTINCT Codigo, Nombre Ls02 WHERE CodPrv = 45 ORDER BY Nombre, Codigo";

     try

     {

          Query->Open();

     }

     catch(Exception *Exc)

     {

          ShowMessahe(Exc->Message);

          this->Close();

          return;

     }

}

Es evidente que el query va a dar error porque falta el FROM. Mi problema es que aunque salta la excepción y se muestra el mensaje de error el formulario no se cierra y no soy capaz de encontrar la razón.

Casimiro Notevi

03-09-2015 13:12:50

Supongo que no has hecho un copia->pega del código, porque no debería compilar, salvo que hayas creado un ShowMessahe

Código:

ShowMessahe(Exc->Message)

Angel.Matilla

03-09-2015 13:18:50

Cita:

Empezado por Casimiro Notevi (Mensaje 496208)

Supongo que no has hecho un copia->pega del código, porque no debería compilar, salvo que hayas creado un ShowMessahe

Código:

ShowMessahe(Exc->Message)

No, es una errata. Es evidente que es ShowMessage- :o

ecfisa

03-09-2015 13:38:13

Hola Angel.Matilla.

Código PHP:


		
			
void __fastcall TfLisCar::FormCreate(TObject *Sender) {
  Query->Close();
  Query->SQL->Text = "SELECT DISTINCT Codigo, Nombre Ls02 WHERE CodPrv = 45 ORDER BY Nombre, Codigo";
  try {
    Query->Open();
  }
  catch(Exception *Exc) {
    ShowMessahe(Exc->Message);
    PostMessage(Handle, WM_CLOSE, 0, 0);
  }
}

Sin embargo dependiendo de como realices la creación, OnCreate podría no ser el evento adecuado, mejor usar OnShow.

Saludos :)

AgustinOrtu

03-09-2015 16:37:11

Lo mejor creo que sería meter tu código en el constructor, redefiniendo el de TForm (override)

Si hay excepciones se destruye el objeto automáticamente y ni hace falta llamar a Close

Angel.Matilla

03-09-2015 18:49:13

Cita:

Empezado por ecfisa (Mensaje 496212)

Código PHP:


		
			
PostMessage(Handle, WM_CLOSE, 0, 0);

Sin embargo dependiendo de como realices la creación, OnCreate podría no ser el evento adecuado, mejor usar OnShow.

No funciona. Da el mensaje de error pero en vez abandonar el formulario lo muestra; vacío, pero lo muestra. Y en el OnShow u OnActivate, que también he probado, me hace lo mismo.

Cita:

Empezado por AgustinOrtu (Mensaje 496216)

Lo mejor creo que sería meter tu código en el constructor, redefiniendo el de TForm (override)

Si hay excepciones se destruye el objeto automáticamente y ni hace falta llamar a Close

También lo había pensado (o incluso ANTES del Application->CreateForm), pero lo pongo dentro del formulario porque si me hace falta me basta llamar al evento para volve a ejecutar sin necesidad de tener que poner el código dos veces.

escafandra

03-09-2015 22:34:55

Close no funciona en el evento OnCreate (tampoco lo hace en delphi), si quieres que en él se cierre el formulario debes usar un mensaje:

Código PHP:


		
			
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>

#define WM_MYCLOSE WM_USER + 1

//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
  void __fastcall FormCreate(TObject *Sender);
private:    // User declarations
  void __fastcall WMForzarClose(TMessage &Msg);
public:        // User declarations
  __fastcall TForm1(TComponent* Owner);

 BEGIN_MESSAGE_MAP
   MESSAGE_HANDLER(WM_MYCLOSE,  TMessage, WMForzarClose)
 END_MESSAGE_MAP(TForm)
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Código PHP:


		
			
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::WMForzarClose(TMessage &Msg)
{
   Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  PostMessage(Handle, WM_MYCLOSE, 0, 0);
}
//---------------------------------------------------------------------------

Saludos.

ecfisa

03-09-2015 23:45:27

1 Archivos Adjunto(s)

Hola Angel.Matilla.

Cita:

Empezado por Angel.Matilla (Mensaje 496231)

No funciona. Da el mensaje de error pero en vez abandonar el formulario lo muestra; vacío, pero lo muestra. Y en el OnShow u OnActivate, que también he probado, me hace lo mismo.

Usando la línea

Código PHP:


		
			
PostMessage(Handle, WM_CLOSE, 0, 0);

en el evento OnShow , funciona correctamente. Tanto el form se encuentre en auto-create forms o se cree en tiempo de ejecución.

Te adjunto un demo para que puedas corroborarlo.

Saludos :)

escafandra

04-09-2015 00:09:35

El caso es que el evento OnShow puede ejecutarse varias veces y OnCreate sólo una. Para evitar, si es el caso, el query repetido debe usar un semáforo, o usar OnCreate con el ejemplo que expuse.

Saludos.

ecfisa

04-09-2015 01:16:28

Cita:

Empezado por escafandra (Mensaje 496265)

El caso es que el evento OnShow puede ejecutarse varias veces y OnCreate sólo una.

Así es, en el caso auto-create forms, sólo ejecutaría el código una vez y no en las sucesivas llamadas a Show ó ShowModal (a eso me refería en el mensaje #4).

Tal vez me estoy saltando algo (ya me dirás), pero no obtengo ninguna diferencia llamando directamente al evento WM_CLOSE:

Código PHP:


		
			
void __fastcall TForm2::FormCreate(TObject *Sender)
{
  ShowMessage(" UN MENSAJE ");
  // PostMessage(Handle, WM_MYCLOSE, 0, 0);
  PostMessage(Handle, WM_CLOSE, 0, 0);
}

Usando creación en demanda, también puede hacer:
Unit2.h:

Código PHP:


		
			
class TForm2 : public TForm
{
__published:    
  TQuery *Query1;
  void __fastcall FormCreate(TObject *Sender);
private:    
  bool _displayed;
public:        
  __fastcall TForm2(TComponent* Owner);
  __property bool itDisplayed = { read = _displayed, write = _displayed};
};

Unit2.cpp

Código PHP:


		
			
void __fastcall TForm2::FormCreate(TObject *Sender)
{
  itDisplayed = true;
  Query1->Close();
  Query1->SQL->Text = "..."
  try {
    Query1->Open();
  }catch(Exception *Exc) {
    ShowMessage("Form2: "+ Exc->Message);
    itDisplayed = false;
  }
}

Llamada :

Código PHP:


		
			
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Form2 = new TForm2(this);
  if (Form2->itDisplayed)
    Form2->ShowModal();
  Form2->Free();
}

Saludos :)

Angel.Matilla

04-09-2015 10:31:34

Gracias por vuestras respuestas.

Cita:

Empezado por escafandra

Close no funciona en el evento OnCreate

No sé si mi forma de programa es correcta o no; imagino que tiene bastantes que son herencia de todos los años de trabajo en entorno MS-DOS y la programación en Clipper. Lo cierto es que esta forma de trabajo (poner el Close en el OnCreate) la uso con relativa frecuencia y no me da problemas. Normalmente los formularios los creo y destruyo en tiempo de ejecución, una de las manías del Clipper por los problemas de memoria que había entonces.

Cita:

Empezado por escafandra

si quieres que en él se cierre el formulario debes usar un mensaje:

He probado el código que me has puesto y tampoco funciona.

Cita:

Empezado por ecfisa

Te adjunto un demo para que puedas corroborarlo.

No he podido compilarlo porque me faltan algunas librerías. Yo estoy usando BCB 6.

ecfisa

04-09-2015 10:47:45

Hola Angel.Matilla

Cita:

Empezado por Angel.Matilla (Mensaje 496276)

...Normalmente los formularios los creo y destruyo en tiempo de ejecución, una de las manías del Clipper por los problemas de memoria que había entonces.

Si lo haces de ese modo (muy buena costumbre ;) ), el código del mensaje #10, tiene que funcionarte sin problemas.

Cita:

No he podido compilarlo porque me faltan algunas librerías. Yo estoy usando BCB 6.

Es raro, estoy usando la misma version y no tengo ningúna biblioteca agregada... ¿ Que biblioteca/s te señala como faltante/s ?

Saludos :)

escafandra

04-09-2015 17:18:54

Cita:

Empezado por ecfisa (Mensaje 496266)

Código PHP:


		
			
void __fastcall TForm2::FormCreate(TObject *Sender)
{
  ShowMessage(" UN MENSAJE ");
  // PostMessage(Handle, WM_MYCLOSE, 0, 0);
  PostMessage(Handle, WM_CLOSE, 0, 0);
}

Aparentemente no hay ninguna diferencia salvo que con WM_MYCLOSE puedes realizar acciones previas a llamas a Close y llamas a Close directamente.

Cita:

Empezado por Angel.Matilla (Mensaje 496276)

He probado el código que me has puesto y tampoco funciona...
...Yo estoy usando BCB 6.

Pues una llamada a Close() en el evento OnCreate compilada en BCB6 tampoco funciona, al menos en las pruebas que hice en mi BCB6 en Win10.

Lo extraño es que no te cierre el formulario tanto con WM_CLOSE como WM_MYCLOSE, ambos métodos cierren el formulario sin rechistar desde el evento OnCreate en BCB5, BCB6 y delphi7. Algo más debe haber en tu código que cuse ese comportamiento.

Saludos.

roman

04-09-2015 18:36:37

Cita:

Empezado por escafandra (Mensaje 496244)

Close no funciona en el evento OnCreate (tampoco lo hace en delphi)

No sé en Builder pero en Delphi sí que funciona. De hecho, el método Close llama al método Release y éste hace un PostMessage de CM_RELEASE y es el manejador de este mensaje quien llama al método Free. Claro que esto sucede sólo si el evento OnClose define Action como caFree. Si se usa el valor por defecto, caHide, entonces sí se debe usar un PostMesssage para poder ocultar la ventana.

// Saludos

escafandra

04-09-2015 20:01:21

Cita:

Empezado por roman (Mensaje 496291)

Tienes razón, pero si no se usa caFrre la única forma de que funcione es con un mensaje WM_CLOSE o derivado (WM_MYCLOSE). En mi ejemplo, independientemente del valor de Action, se cierra o esconde, en caso contrario, en las pruebas que hice en delphi7, BCB5 y BCB6, Close no hace nada.

Saludos.

La franja horaria es GMT +2. Ahora son las 17:50:59.