A seguir está o código original:
(O temporizador está configurado para 1000ms aqui), indicando um intervalo de 30 segundos! !
Copie o código do código da seguinte forma:
unidade Unidade1;
interface
usa
Windows, Mensagens, SysUtils, Variantes, Classes, Gráficos, Controles, Formulários,
Diálogos, StdCtrls, ExtCtrls;
tipo
TForm1 = classe(TForm)
Memo1: TMemo;
Botão1: Botão T;
Temporizador1: TTimer;
procedimento Timer1Timer(Remetente: TObject);
procedimento Button1Click(Remetente: TObject);
privado
{Declarações privadas}
público
procedimento AppMessageHandler(var Msg:TMsg;var Handled:Boolean);
{Declarações públicas}
fim;
var
Formulário1: TForm1;
implementação
{$R *.dfm}
{TForm1}
procedimento TForm1.AppMessageHandler(var Msg: TMsg; var Handled: Boolean);
começar
se (msg.message=WM_MOUSEMOVE) ou (msg.message=WM_KEYDOWN) então timer1.tag:=0;
fim;
procedimento TForm1.Timer1Timer(Remetente: TObject);
começar
temporizador1.tag:=tempor1.tag+1;
se Timer1.tag=30 então feche;
fim;
procedimento TForm1.Button1Click(Remetente: TObject);
começar
fechar;
fim;
fim.