Código para bloquear programa quando ocioso!
16/02/2006
0
galera é o seguinte, peguei esse código aqui mesmo no fórum mais não funcionou comigo, o tempo não zera, fiz alguns testes e não funcionou ele sempre continua a contagem...
alguém pode me ajudar... :wink:
pessoal não era bem isso que eu tinha em mente mas o resultado foi o esperado
vou diexar aqui p/ quem tiver com o mesmo problema de usuário relaxado....
NO FORMULÁRIO PRINCIPAL DE SUA APLICAÇÃO, AJUSTE A PROPRIEDADE KeyPreview PARA true,
INSIRA O COMPONENTE TTimer
E AJUSTE O INTERVALO PARA 1000 MILESEGUNDOS
---------------------------------------------
private
procedure ResetTimeOut;
public
{ Public declarations }
end;
------------------------------------
implementation
const
maxTimeOutValue = 300; // 300 segundos = à 5 minutos
var TimeOut : integer; // será incrementando pelo TTimer
{$R *.dfm}
procedure TForm1.ResetTimeOut;
begin
TimeOut := 0;
end;
-----------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
begin
timeOut:= 0;
end;
------------------------------------------------------
procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(TimeOut);
if TimeOut = MaxTimeOutValue then
begin
Timer1.enabled:= false;
close;
end;
end;
-------------------------------------------------------------
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ResetTimeOut;
end;
alguém pode me ajudar... :wink:
Paullsoftware
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)