Abrir simultáneamente dos formularios Builder c++

[fabiodidone]

Hola gente. Soy nuevo en el foro y les agradezco por aceptarme. Empiezo con una consulta.

Quiero crear una aplicación que al abrir un formulario (Form1), se abra automáticamente un segundo formulario (Form2), todos dentro del mismo proyecto. He leído que se logra utilizando el evento OnActivate del primer formulario, pero no lo logre. Si bien se abren los dos formularios, el primero queda como congelado y no permite hacerle nada. Como si la propiedad Enable estuviera en False, que no lo esta obviamente. Alguna sugerencia?

[Casimiro Notevi]

¿Y tu código para que lo veamos?

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración

[ecfisa]

Hola.

Si no interpreté mal lo que te sucede, intentalo de este modo:

Unit1.h:

Código PHP:

...

#define WM_AFTER_SHOW (WM_USER + 300)

class TForm1 : public TForm
{
__published:
  void __fastcall FormShow(TObject *Sender);

private:
  void __fastcall WMAfterShow(TMessage& msg);
  BEGIN_MESSAGE_MAP;
    MESSAGE_HANDLER(WM_AFTER_SHOW, TMessage, WMAfterShow);
  END_MESSAGE_MAP(TForm);

public:
  __fastcall TForm1(TComponent* Owner);
};

... 


Unit1.cpp:

Código PHP:


#include "Unit2.h"
...

void __fastcall TForm1::WMAfterShow(TMessage& msg)
{
  Form2->Show();
}

void __fastcall TForm1::FormShow(TObject *Sender)
{
  //...
  //...
  PostMessage(Handle, WM_AFTER_SHOW, 0, 0);
}

... 


Saludos

[fabiodidone]

Hola, es verdad. Gracias por recordarmelo.

En Unit1.cpp tengo esto:

Código PHP:

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}


void __fastcall TForm1::FormActivate(TObject *Sender)
{
Form2->Show();
} 


En Unit2.cpp tengo esto otro:

Código PHP:

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
} 


[ecfisa]

Hola.

¿ Y ya probaste la sugerencia que te dí ?, por que a mi me funciona perfectamente...



Saludos

[fabiodidone]

Empezado por ecfisa

Hola.
¿ Y ya probaste la sugerencia que te dí ?, por que a mi me funciona perfectamente...
Saludos

Hola, como estas. Todavía no lo probé, pero seguro que lo voy a hacer, porque te funciono.
Que tendrá mi código que deshabilita el primer formulario?

[exmachina]

&ecfisa

Hola. Podrias subir el codigo completo y/o explicar para que sirve lo de WM_AFTER_SHOW. Por cierto, gracias a tu codigo acabo de descubrir lo de BEGIN_MESSAGE_MAP/END_MESSAGE_MAP (¡Algun dia tendre que leer la documentacion...!)

Un saludo

[ecfisa]

Hola.

El mensaje personalizado WM_AFTER_SHOW, como su nombre lo sugiere, sirve para ejecutar código después del evento OnShow del form. Encontré un enlace que te podría resultar interesante: Messages and Events of Windows Controls.

También te adjunto el código fuente del ejemplo que solicitas.

Saludos

[exmachina]

Seguramente estas usando ShowModal() donde deberias usar Show().