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