Como crear una forma MDI?

[squenda]

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.

[bustio]

Empezado por squenda

Hola Bustio

Código Delphi [-]
procedure TMain.Razas1Click(Sender: TObject);
begin
  if frm_Razas = nil then 
    begin
      application.CreateForm(Tfrm_Razas,frm_Razas);
      frm_Razas.Show;
    end;
end;

Espero te sirva.

Asi mismo lo hago.. lo unico es que cuando le doy al boton "CERRAR"(X) en la forma hija no se cierra sino que se minimiza y se va a la esquina inferior izquierda de la pantalla.. como hacer para que en verdad se cierre??

[[Lepe]]

En el evento FormClose de la ventana hija, pon: Action := cafree;

saludos