Formularios modales

[pyanqn]

Hola tengo un problema con un formulario.

Quiero que sea modal, pero me surge un error en tiempo de ejecución, sin embargo tengo otro formulario tambien modal que funciona correctamente.
Qué puede estar ocurriendo?

Lo llamo así:

procedure TFrmVisitaNueva.Button1Click(Sender: TObject);
begin
FrmSeleccion:=TFrmSeleccion.Create(Application);
try
if FrmSeleccion.Showmodal=mrok then
Begin
//Aqui quiero hacer algo
end;
finally
FrmSeleccion.Free;
end;
end;

[vtdeleon]

Saludos

Que error te da??


Nt:Usa las etiquetas, asi seria mas legible tu codigo, Lee mi firma!

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

Por favor utiliza los tag's de [ Delphi ]...[ /Delphi ] (sin los espacios interiores) cuando coloques código en los mensajes.

Empezado por pyanqn

...pero me surge un error en tiempo de ejecución,

Estaría bien, que nos dijeras qué mensaje te da, eso ayudaría.

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