Bloquear aplicación por inactividad

[[Lepe]]

Supongo es una aplicación MDI, sólo tendrías que mostrar la ventana de login en forma modal, eso ya deja inhabilitado el resto de las ventanas. Supongo que una vez registrado el ususario, inhabilitarás las opciones que no tenga permiso, y todo queda OK.

Yo no cerraría las ventanas, puede que haya dejado una tarea a medias, o que al cerrar sus ventanas pierda "el hilo de por donde iba".

De todas formas, cerrar las ventanas mdichild es un bucle por frmmdi.MdiChildCount ejecutando FrmMdi.MdiChildren[i].Close;

La ventana modal tiene truco, se supone que es modal porque necesita una respuesta por parte del usuario y cerrarla cancelando las modificaciones.... no sé yo. Puedes tener una bandera en las ventanas modales o un evento que le informe que se cierre automáticamente, pero esto ya depende de cómo tengas implementadas dichas ventanas modales, ¿puedes mostrar algo de código para saber cómo las creas? (hay varios métodos).

Saludos

[FrancisR]

Zarko Gajic utiliza esta función del API de Windows:


Código Delphi [-]function SecondsIdle: DWord;
var
liInfo: TLastInputInfo;
begin
liInfo.cbSize := SizeOf(TLastInputInfo) ;
GetLastInputInfo(liInfo) ;
Result := (GetTickCount - liInfo.dwTime) DIV 1000;
end;

procedure TForm1.Timer1Timer(Sender: TObject) ;
begin
Caption := Format('System IDLE last %d seconds', [SecondsIdle]) ;
end;





La desventaja es que solo vale para Windows 2000 en adelante.

La ventaja, es que es totalmente limpia y fiable.

Respecto a las ventanas en una aplicación modal puedes jugar con screen.activeform.formstyle.

Saludos,

FrancisR

[juanlaplata]

en primer lugar no es una aplicacion MDI, de lo contrario usaria un bucle como dice Lepe, que tambien lo he leido en este foro. Pero podria haber sido tal. Pues tengo un form ppal del cual parten hacia forms secundarios que realizan ABM de modulos diferentes, en los cuales hay forms de imput, visualizacion etc, que tamb. son modales.
Mi idea; que cada form tenga por ejemplo un procedure cancelar que se ejecutara en tal caso (inactividad) y este sabra que hacer (cancelar) segun sean las tareas que se realizan en dicho form, cancelar todos los que se abrieron desde este y luego cerrarse. Tenia pensado bruto pero ligero, armar una cadena ejemplo: ppal@ModuloClientes@AltaCliente , y que cuando le diga a ppal.cancelar, este busca todos los form que esten abiertos (ModuloClientes para este ej.) y los cancele.

[[Lepe]]

Pues toma el bucle del objeto TScreen. Al contrario de lo que parece, ese objeto mantiene una lista de todas tus ventanas creadas.

TFrmCliente(Screen.Forms[1]).Loquesea
Screen.Forms[2].Close;

Tienes varias formas:
- Programando el OncloseQuery de tal manera que al ordenar el cierre de esa ventana, se ejecuta dicho evento, que tomará las decisiones oportunas. En este caso no puedes diferenciar si el usuario cerró la ventana o es el Idle.

- Creando un procedimiento "universal" y heredando.
La idea es crear un FormBase que implemente el procedimiento de cierre. Ahora todas tus ventanas heredan de él (no es complejo), y cada uno hace lo que tenga que hacer.

Esto es lo que uso con más de 30 ventanas y es una maravilla. File -> new Form:

Código Delphi [-]
type TBaseForm = Class(TForm)

public
   procedure Cierra(...parametros); virtual;abstract; 
end;

Lo guardas como "UBaseForm.pas"

Ahora abres tus ventanas, las que ya tienes en tu programa, se verán así:

Código Delphi [-]

type TFrmCliente = class(TForm) 
....
....
end;

La modificas para que quede así (a mano, vamos):

Código Delphi [-]
uses UBaseForm;

type TFrmCliente = class(TBaseForm) <<<<<<<< Ahora hereda de nuestra ventana
....
public
  procedure Cierra(... mismos parametros); override; <<<<<< declaramos la funcion y le decimos que vamos a redefinir (override) su comportamiento
....

end;

implementation

procedure TFrmCliente.Cierra(... mismos parametros); <<<<< La implementamos, claro.
begin
 lo que tenga que hacer esta ventana.
end;

Ahora puedes hacer un bucle por el objeto TScreen, haciendo que cada ventana ejecute su propio código:

Código Delphi [-]
for i:=0 to screen.FormCount-1 do
   TBaseForm(Forms[i]).Cierra

En realidad, esto se llama herencia visual y se hace al revés, es decir, primero creas el BaseForm y cada vez que necesites una ventana nueva vas a File -> new -> (pestaña con el nombre de tu programa) -> elijes el TBaseForm y aceptas.

Cómo tú ya tienes todas las ventanas creadas, tienes que hacerlo a mano.

Saludos

[juanlaplata]

miles de gracias, Lepe , FrancisR y todos aquellos que hayan leido y al menos pensado en una respuesta a mi problema.
Me imprimo esta parte y cuando llego a casa probar, luego comento los resultados. Gracias a todos.