Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   No puedo Ejecutar Formularios Modales (https://www.clubdelphi.com/foros/showthread.php?t=5301)

IcebergDelphi 17-11-2003 04:40:58

No puedo Ejecutar Formularios Modales
 
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 17-11-2003 07:59:35

Pues he probado el código y funciona perfectamente.
Código:

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 17-11-2003 08:01:32

Con esta prueba tienes el error:
Código:

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 17-11-2003 08:51:58

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 17-11-2003 09:31:31

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


La franja horaria es GMT +2. Ahora son las 10:58:55.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi