Bloquear aplicación por inactividad

[ixMike]

Empezado por egostar

Aprovechen que ahora solo hay 2 moderadores en el foro

Corrijo: Solo UNO jajaja

La corrección no es correcta (¿antinomia?), hay uno que siempre está "invisible".

[ixMike]

Ups, me dejé la firma...

(+2)

[[egostar]]

Empezado por ixMike

La corrección no es correcta (¿antinomia?), hay uno que siempre está "invisible".

Cuentalos amigo ixMike.

Salud OS

[ixMike]

Empezado por egostar

Cuentalos amigo ixMike.

vaya, vaya... desconocía ese detalle...

(+1)

[juanlaplata]

Añado mi pregunta a este post, para no abrir uno nuevo.
Lo de bloquear me quedo claro y funcionando; lo que quiero hacer y no se me ocurre como es que se cierren todas las ventanas (abiertas modalmente, en mi caso, y en cascada tal ves) menos el Form ppal. al cual se inhabilita el menu salvo la opcion de login.
Bueno gracias a todos.

[[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.