Voici le code d'origine :
(Le timer est réglé ici sur 1000ms), indiquant un intervalle de 30 secondes ! !
Copiez le code comme suit :
unité Unité1 ;
interface
utilise
Windows, messages, SysUtils, variantes, classes, graphiques, contrôles, formulaires,
Boîtes de dialogue, StdCtrls, ExtCtrls ;
taper
TForm1 = classe(TForm)
Mémo1 : TMémo ;
Bouton1 : TButton ;
Minuterie1 : TIminuterie ;
procédure Timer1Timer(Expéditeur : TObject);
procédure Button1Click (Expéditeur : TObject);
privé
{Déclarations privées}
publique
procédure AppMessageHandler(var Msg:TMsg;var Handled:Boolean);
{Déclarations publiques}
fin;
var
Formulaire1 : TForm1 ;
mise en œuvre
{$R *.dfm}
{TForm1}
procédure TForm1.AppMessageHandler(var Msg: TMsg; var Handled: Boolean);
commencer
si (msg.message=WM_MOUSEMOVE) ou (msg.message=WM_KEYDOWN) alors timer1.tag:=0;
fin;
procédure TForm1.Timer1Timer(Expéditeur : TObject);
commencer
minuterie1.tag:=minuterie1.tag+1;
si Timer1.tag=30 alors fermez ;
fin;
procédure TForm1.Button1Click(Expéditeur : TObject);
commencer
fermer;
fin;
fin.