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