Como crear una forma MDI?
HOla:
Tengo una gran duda. Necesito en mi aplicacion que una de sus formas sea al estilo MDI. Me fui guiando por el ejemplo que trae el Delphi y hice todo lo que esta ahi, pero no trabaja. Lo primero que hice fue a mi forma MDIForm le puse la propiedad fsMDIForm, a la hija le di la propiedad MDIChild, quite la Child del DPR(Application.CreateForm(TMDIChild, MDIChild)), luego, en el boton que crea la forma hija le puse este segmento de codigo: Código:
Cita:
Acepto cualquier sugerencia!! Salu2... Lazaro Bustio Martinez |
Hola Bustio
Mira yo cuando creo una aplicacion lo que hago es lo siguiente: 1. Creo una forma y en su propiedad "FormStyle" elijo la opcion "fsMDIForm" y la pongo en formas que se autocrean. 2. Creo otra forma y en su propiedad "FormStyle" elijo la opcion "fsMDIChild" pero no la cambio de directorio y la quito del autocreate. 3. Para mandar llamar la forma child coloco el siguiente codigo en el boton o menu correspondiente: procedure TMain.Razas1Click(Sender: TObject); begin if frm_Razas = nil then begin application.CreateForm(Tfrm_Razas,frm_Razas); frm_Razas.Show; end; end; la primer linea "if Frm_Razas = Nil then" es para validar que no se abra dos veces la misma form y en el evento OnClose de dicha form coloco "Frm_Razas := nil" y listo!! Aparece la forma. Espero te sirva. |
Respondiendo...
Cita:
|
En el evento FormClose de la ventana hija, pon: Action := cafree;
saludos |
La franja horaria es GMT +2. Ahora son las 04:36:03. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi