No puedo Ejecutar Formularios Modales

[IcebergDelphi]

Hola amigos, mi problema es el siguiente, no puedo ejecutar un formulario modal, se me hace rraro por que anteriormente he ejecutado el mismo codigo en otros proyectos y no me manda este mensaje de error: Can not make a visible window modal
y utilizo este codigo:

Var
AbreFormModal:TForm2;
begin
AbreFormModal:=TForm2.Create(Self);
AbreFormModal.ShowModal;
end;

De hecho siempre he utilizado este codigo y nunca me habia dado error para llamar a otro formulario modal.

Me faltara alguna Unirt en el uses?

Gracias

[marcoszorrilla]

Pues he probado el código y funciona perfectamente.

procedure TForm1.Button1Click(Sender: TObject);
Var
AbreFormModal:TForm1;
begin
AbreFormModal:=TForm1.Create(Self);
AbreformModal.Caption:='Este es el formulario Modal';
AbreFormModal.ShowModal;
end;


El error parece indicar que la ventana ya es visible y por lo tanto ya no puede cambiarse a modal, revisa un poco el código.

Un Saludo.

[marcoszorrilla]

Con esta prueba tienes el error:

procedure TForm1.Button1Click(Sender: TObject);
Var
AbreFormModal:TForm1;
begin
AbreFormModal:=TForm1.Create(Self);
AbreformModal.Caption:='Este es el formulario Modal';
AbreformModal.Show;//la abro normal
AbreFormModal.ShowModal;//Aqui tenemos el error
end;




Un Saludo.

[jachguate]

Es probable que tu formulario tenga el estilo fsMDIChild, con lo que al hacerlo, automáticamente es visible, por ello no podes mostrarlo de forma modal.

Hasta luego.

;)

[__cadetill]

Lo que dice Juan Antonio es correcto. Al hacer un formulario fsMDIChild, automáticamente se cambia la propiedad Visible a true. Pero si cambiamos el formulario a fsNormal, la propiedad Visible se queda en true, no pasa a false

Creo que este es el error que tienes