Modal dentro de MDI

[citlalliDgp]

Hola amigos, una vez mas me encuentro necesitando de su ayuda. Me ecnuentro con el problema de que he creado algunos forms MDI, tengo el form padre que es tambien el formulario principal de mi aplicación, y he creado varios forms hijos que son invocados desde un TMainMenu que colocado en el form padre. La cuestión es que cuando invoco cualquiera de los forms fsMDIChild, no puedo lograr que el form fsMDIForm este inhabilitado (algo similar a lo que se realiza cuando se invoca un form con ShowModal), sin embargo, ya lo he tratado de hacer usando el ShowModal y no me funciona. Alguien podría decirme por que ? y que puedo hacer al respecto?, por favor.

De antemano muchas gracias, espero me hayan entendido.

[jhonny]

Bueno, como ya sabes hay varios tipos de formularios, pero aun asi los voy a enumerar a continuación:

1) MDI Padre.

2) MDI Hijo.

3) Normal.

4) StayOnTop.

Y hay 4 tipos basicos de aplicaciones...

1) Aplicaciones MDI.

2) Aplicaciones SDI.

3) Aplicaciones Modales.

4) Aplicaciones de consola.

Cuando estas haciendo una aplicación MDI, lo mas común es que llamas desde el Form padre a los Form MDI Hijos, pero en algunos casos como el tuyo necesitamos llamar formularios como si se tratara de una aplicación Modal, para esto tenemos que decirle al Form "hijo" que ya no es un Form hijo MDI, si no que es un Form Normal... Para hacer eso vas a la propiedad FormStyle del Form "hijo" y le dices que es fsNormal y desde el "padre" llamas a ese Form "hijo" como si se tratara de una aplicación Modal común y corriente, asi por ejemplo:

Código Delphi [-]
FormularioHijoFrm := TFormularioHijoFrm.Create(Application);
FormularioHijoFrm.ShowModal;
FormularioHijoFrm.Free;

Y listo, espero que te sirva .

[citlalliDgp]

Hola, ya he intentado lo que me dices y al mandar llamar el form hijo desde el form fsMDIForm me arroja un error que dice: "Cannot make a visible window modal", intenté usando este código:

Código Delphi [-]
procedure TForm2.Proveedores1Click(Sender: TObject);
begin
form4 := TForm4.Create(Application);
Form4.ShowModal();
Form4.Free;
end;

Incluso primero traté de cambiar la propiedad del form hijo a fsNormal desde que lo invoco:

Código Delphi [-]
form4 := TForm4.Create(Application);
Form4.FormStyle:=fsNormal;
Form4.ShowModal();
Form4.Free;

pero tampoco funcionó. Cambié la priedad formStyle desde antes de correr el programa, pero ninguno de estos intentos me resultó. Cual podrá ser el problema?

[jhonny]

Verifica que ademas de que el "hijo" tenga el FormStyle en fsMDIChild, la propiedad Visible del form "hijo" este en False .

[citlalliDgp]

Bien !!! Si me ha funcionado, jhonny. Muchas gracias.

[citlalliDgp]

Disculpa, y que puedo hacer si ahora desde este form hijo (que he convertido en fsNormal) trato de llamar otro form fsMDIChild que esté maximizado ?? Trato de invocarlo de la misma manera en que me habías dicho, pero no me funciona:

Código Delphi [-]
procedure TForm4.SpeedButton5Click(Sender: TObject);
begin
Form5 := TForm5.Create(Application);
end;

que puedo hacer ???

[jhonny]

Bueno, la verdad es que nunca he llamado un Form de estilo fsMDIChild desde un formulario mostrado de forma modal, sinceramente no me cabe en la cabeza como podria quedar el asunto .

[[Lepe]]

Por favor citlalliDgp, no dupliques hilos.

Es cierto que has hecho lo correcto, es decir: tenías una nueva duda y has creado un nuevo hilo, pero al mantener este hilo con la nueva duda, tenemos hilos duplicados.

Como tú mismo estas viendo, al tener hilos duplicados es muy difícil seguir la evolución del problema planteado, amén de dificultar las búsquedas de otras personas con tu misma inquietud.

En el otro hilo te he contestado, espero te sirva.

Saludos