Temporizador

Question

E ai galera blz...  :D Precisava criar tipo de um temporizador para um bot�o, caso o usu�rio deixasse o computador parado sem precionar nenhuma tecla ou mover o mouse por exemplo por 1 minuto um bot�o...

F�rum Vini · Answer

Voc� pode utilizar um TTimer(Paleta System), mude sua propriedade Interval = 60000(1 minuto em milisegundos) e enabled = true.
Crie uma variavel global com o nome de Moveu do tipo boolean.
No evento OnMouseMove coloque:

Moveu:=true;

E no evento OnTimer do TTimer, coloque:

  if not moveu then
    Button1.Enabled:=false;

Coloque no evento OnKeyPress do formul�rio o mesmo c�digo do OnMouseMove;

C�digo completo:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

var
  Moveu: boolean = false;
{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if not moveu then
    Button1.Enabled:=false;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  Moveu:=true;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Moveu:=true;
end;

end.

Espero ter ajudado.

Vinicius.

Koplin · Answer

.....

F�rum Temporizador #172748