Cerrar formulario

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