Formularios modales

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