Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Delphi Error al abrir una ventana showmodal en un ambiente MDI (https://www.clubdelphi.com/foros/showthread.php?t=49197)

pockelsm3 16-10-2007 00:17:42

Delphi Error al abrir una ventana showmodal en un ambiente MDI
 
Buenas y saludos

Escribo para ver si alguien me puede ayudar con mi problema y es que estoy haciendo una aplicacion MDI y tengo algunas formulario que a la hora de mostrarse lo he puesto Showmodal y cuando la ejecuto me sale este error

EInvalidOperation with message 'Cannot make a visible windows modal'

enecumene 16-10-2007 00:22:04

Hola pockelsm3, y Bienvenido al club, ojala no te sea de ninguna molestia que publiques el codigo que utilizas para abrir la ventana modal?.

Saludos

Chris 16-10-2007 00:39:42

Si los forms son MDIChild, simplemente no se puede, si son formularios normales, andes de llamar al ShowModal, el formulario no tiene que estar visible. (los mdichild siempre son visibles)

pockelsm3 16-10-2007 14:59:37

Codigos para abrir ventana en modal para MDI
 
procedure TFGesoft.GAdminItems0Click(Sender: TObject);
begin
FLog := TFLog.Create (Application);
FLog.Show;
end;

pockelsm3 16-10-2007 15:02:35

Codigos para abrir ventana en modal para MDI
 
Disculpen el codigo anterior fue erroneo, este es el que estoy utlizando gracias

procedure TFGesoft.GAdminItems0Click(Sender: TObject);
begin
FConsulta:= TFConsulta.Create (Application);
FConsulta.Showmodal;
end;

enecumene 16-10-2007 15:09:41

A ver, intenta esto:

Código Delphi [-]
 procedure TFGesoft.GAdminItems0Click(Sender: TObject);
begin
   FConsulta:= TFConsulta.Create (self);
try
   FConsulta.Showmodal;
finally
FConsulta.free;
end; //finally
end;

Saludos.

eduarcol 16-10-2007 15:32:19

Prueba esto

Código Delphi [-]
procedure TFGesoft.GAdminItems0Click(Sender: TObject);
begin
   FConsulta:= TFConsulta.Create (Application);
      FConsulta.FormsStyle := fsNormal;
      FConsulta.Visible := False;
      FConsulta.Showmodal;
end;

pockelsm3 23-10-2007 14:50:56

Gracias
 
Me han sido de mucha ayuda, gracias a ustedes he podido solucionar mi problema:D:D:D


La franja horaria es GMT +2. Ahora son las 21:26:13.

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