Formularios modales

[Neftali [Germán.Estévez]]

Por los pelos Van Troi..., pensamos los mismo (por dos veces -aunque en orden contrario- ), sólo que fuiste más rápido...

[pyanqn]

Ok.

Código Delphi [-]
 
     try
       if ((FrmSeleccion.Showmodal)=mrOk) then
       Begin
          //Algo aqui
       end;
     finally
        FrmSeleccion.Free;
     end;
end;

El error es el siguiente: No se puede crear un formulario modal.

[vtdeleon]

Saludos

Que propiedades le has cambiado a FrmSeleccion??
Puede ser que tengas la propiedad Visible en True, o que este form sea de tipo Hijo(Child)

[lucasarts_18]

Hola:

Para crealo debe ser así:

Código Delphi [-]
 FrmPrincipal.ShowModal;

Tu en ese instante estás preguntando por el estado del formulario Modal, pero en ninguna parte lo muestras modal.

Hasta Luego -

[pyanqn]

Ok. Probe con eso tambien, las propiedades estan bien, i.e. la propìedad visible=false, no es de tipo hijo, ni mdi.

[vtdeleon]

Saludos

Empezado por lucasarts_18

Para crealo debe ser así:

Código Delphi [-]
 FrmPrincipal.ShowModal;

Tu en ese instante estás preguntando por el estado del formulario Modal, pero en ninguna parte lo muestras modal.

Estas equivocado. Con

Código Delphi [-]
if frmseleccion.showmodal=mrOk then

se puede llamar a ese formulario y esperar una respuesta mrResult. La rutina del FrmVisitaNueva se detendra hasta esperar esta respuesta.

Código Delphi [-]
procedure TFrmVisitaNueva.Button1Click(Sender: TObject);
begin
FrmSeleccion:=TFrmSeleccion.Create(Application);
try
if FrmSeleccion.Showmodal=mrok then//Aqui se detiene hasta obtener una respuesta
Begin
//Aqui quiero hacer algo
end;
finally
FrmSeleccion.Free;
end;
end;

[lucasarts_18]

Hola:

VtDeleon, tienes toda la razón, acabo de hacer la prueba y es como dices tú.

He aprendido algo nuevo !!!

Gracias..

Hasta Luego -

[lucasarts_18]

Hola:

Y esos parentesis metidos entre medio, puede que por eso no funciona, quien sabe .