• Viernes 15 de Noviembre de 2024, 02:43

Autor Tema:  Ventanas Mdi  (Leído 1359 veces)

spart

  • Nuevo Miembro
  • *
  • Mensajes: 13
    • Ver Perfil
Ventanas Mdi
« en: Sábado 20 de Noviembre de 2004, 22:10 »
0
Alguien prodria ayudarme, no encuentro como es que puedo abrir y cerrar ventanas en forma MDI, es decir teniendo una ventana principal y las secundarias que se abran y cierren dentro de esta...

De antemano les agradezco su ayuda
:blink:

MaxFire

  • Nuevo Miembro
  • *
  • Mensajes: 13
    • Ver Perfil
Re: Ventanas Mdi
« Respuesta #1 en: Miércoles 1 de Diciembre de 2004, 13:55 »
0
Hola! Espero que esto te ayude:

Creas la forma padre y las formas hijas. En el menu Project, en Options encuentras una página que se llama Forms. Ahí te aparecen dos listas: Auto-create forms y Available forms. Si las formas hijas aparecen en la columna de auto-create se crearán por defecto cuando se cree la forma padre. Pasa las formas hijas a la columna de Available forms.

Incluye los ficheros .h de las formas hijas en el fichero .cpp de la forma padre.

Supón que quieres que aparezca una forma hija al darle a un botón en la forma padre, el código sería:

   void __fastcall TForm1::Button1Click(TObject *Sender)
{
       Application->CreateForm(__classid(TForm2), &Form2);
       Form2->Height=194;
       Form2->Width=198;
}

Si quieres que la forma hija pueda cerrarse y no se quede minimizada cuando le das a la X, en la forma hija , en el evento OnClose:

void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
       Action=caFree;
}

Hasta luego!!!

spart

  • Nuevo Miembro
  • *
  • Mensajes: 13
    • Ver Perfil
Re: Ventanas Mdi
« Respuesta #2 en: Lunes 6 de Diciembre de 2004, 06:11 »
0
Gracias por el tip, realmente me sirvio de mucho....

Te lo agradezco en verdad.