Cerrar formulario

[Angel.Matilla]

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

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]

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

ShowMessahe(Exc->Message)

[Angel.Matilla]

Empezado por Casimiro Notevi

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

ShowMessahe(Exc->Message)

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

[ecfisa]

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]]

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]

Empezado por ecfisa

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.

Empezado por AgustinOrtu

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]]

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]

Hola Angel.Matilla.

Empezado por Angel.Matilla

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]]

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]

Empezado por escafandra

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]

Gracias por vuestras respuestas.

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.

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.

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]

Hola Angel.Matilla

Empezado por Angel.Matilla

...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.

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]]

Empezado por ecfisa

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);
} 


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

Empezado por Angel.Matilla

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]

Empezado por escafandra

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]]

Empezado por roman

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

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.