Ver Mensaje Individual
  #4  
Antiguo 12-05-2005
Avatar de Aura
Aura Aura is offline
Miembro
 
Registrado: mar 2004
Ubicación: Veracruz, Ver., México
Posts: 43
Reputación: 0
Aura Va por buen camino
Exclamation mas dudas...

hola gracias por la ayuda , el CloseWindow nunca lo he usado pero hice la prueba segun con lo que entendi, pero sigo teniendo el mismo error:

Código:
Project NRC.exe raised exception class EInvalidOperation with message 
'Cannot make a visible window modal1. Process stopped. use Step or Run to 
continue
El código lo tengo de la siguiente manera:
Código:
unit UMenu;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
...
...
procedure TFMenu.pendientes(Sender: TObject);
begin
	MTabla.QComodin.Close;
	if ((varcon = 'S')OR(varresp = 'S') OR (varver = 'S') OR (varimp = 'S')) THEN
	begin
	   FMensaje11.ShowModal;
	end
end;
procedure TFMenu.RelojTimer(Sender: TObject);
begin
	//******************************************
	//***mandara mensaje de si hay pendientes  cada 20 segundos
	//*******************************************
	Mtabla.Session.Close;
	pendientes(Sender);
end;
 
procedure TFMenu.reloj2Timer(Sender: TObject);
begin
	 //******************************************
	 //***cerrara sesion en determinado momento  cada 40 segundos
	 //*******************************************
	 Mtabla.Session.Close;
	 if (reloj.Enabled = false) then   //aqui confirmo que este desplegada
						  //en pantalla la forma FMensaje11
	  FMensaje11.close; //aqui indico que quiero se cierre la forma
	  //closeWindow(FMensaje11.Handle);  // tambien lo intente con esta 
							//instrucción y nada
	 
	 FSeguridad.ShowModal;   // aqui mando a llamar otra y cuando cierro esta
						//se hace un llamado al proceso Pendientes
end;
He visto la instrucción
Código:
FMensaje11.FormClose()
pero realmente no se que parámetros son los que lleva... espero esto explique mejor mi problema muchas gracias por el tiempo y la ayuda
__________________
----------------->> Saluditos <<-----------------
Responder Con Cita