FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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:
procedure TFrmCrearCuestionarios.CrearPregunta(aNombre: String); var Child: TMDIChild; begin { create a new MDI child window } Child := TMDIChild.Create(Application); Child.Caption := Name; end; Cita:
Acepto cualquier sugerencia!! Salu2... Lazaro Bustio Martinez |
#2
|
|||
|
|||
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. |
#3
|
|||
|
|||
Respondiendo...
Cita:
__________________
Muchas Gracias... |
#4
|
||||
|
||||
En el evento FormClose de la ventana hija, pon: Action := cafree;
saludos |
|
|
|