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