Cerrar formulario

[Casimiro Noteví]

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.

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

[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