Auto Logoff depois de um tempo inativo

Delphi

16/09/2012

Olá para todos.
Queria ajudar para fazer um auto Logoff no sistema. Por exemplo: se a pessoa ficar sem mexer no programa durante 5 minutos, a tela de login abre automaticamente. Parece simples, mas tô com dificuldade no código. Como faço pra saber se o sistema está inativo?
Igual, acho que tenho colocar um timer (não sei se é no data module), e depois enrolei. Se alguem tiver alguma idéia, ou montar um mini-código, desde já agradeço.
Rodrigo Barra

Rodrigo Barra

Curtidas 0

Respostas

Joel Rodrigues

Joel Rodrigues

16/09/2012

Use um componente ApplicationAvents e seu evento OnIddle, que ocorre quando a aplicação está ociosa.
Boa sorte.
GOSTEI 0
Rodrigo Barra

Rodrigo Barra

16/09/2012

Eu tentei o componente UCIdle do UserControl, mas não sei pq, não está fazendo o auto-logoff. O login, as permissões do usercontrol estão funcionando, mas o logoff não. Liguei corretamente o componente.

Então, posso utilizar o ApplicationEvents Idle. E aí, como faço no código? Tenho colocar um timer? Onde? no datamodule?
GOSTEI 0
Joel Rodrigues

Joel Rodrigues

16/09/2012

O evento OnIddle é executado quando a aplicação fica ociosa, ou seja, nele você põe o código a ser executado nessa situação.
GOSTEI 0
Rodrigo Barra

Rodrigo Barra

16/09/2012

Num tutorial do usercontrol falava pra colocar o UCIdle no data module, aí não estava funcionando o auto-logoff. Aí eu coloquei ele no form principal, aí funcionou.
GOSTEI 0
Alisson Santos

Alisson Santos

16/09/2012

Você nesse caso teria que verificar como está a chamada no seu datamodule, pois quando coloca ele no form ele vai verificar se a aplicação está ociosa ou não.
GOSTEI 0
POSTAR