Discussion :

[cprogil]

Ce que je veux faire est dans le titre.
Je veux fermer une fenêtre d'un programme si l'utilisateur ne l'a pas utilisé pendant un certain temps.
J'utilise donc un timer pour fermer le fenêtre.
Je voudrai éviter de créer des méthodes onKeyDown onMouseDown et onMouseMove pour chaque composant de la fenêtre mais esce possible : .
Peut-être en utilisant les messages windows? mais j'avoue que je ne suis pas très à l'aise avec.
Merci pour vos conseils

[Yohann]

Salut.

Tu déclenches ton TIMER dans l'évènement OnDeactivate de ta FORM. Ainsi, des que l'utilisateur bascule sur un autre programme (donc ne se sert plus du tien !), le TIMER se déclenche. Tu le remets à zéro (ou le stoppe carrément) dans l'évènement OnActivate de ta FORM.

Reste le cas ou l'utilisateur quitte son siège en laissant ton programme en fenetre active. Dans ce cas, tu testes uniquement le OnMouse... de ta FORM et tu stoppes le TIMER des que quelque chose bouge. Ca serait surprenant que l'utilisateur bouge la souris sans passer au dessus de la FORM à un moment ou à un autre. J'ai juste peur que faire ca ralentisse le programme puisque tu vas éxécuter la procédure tout le temps. Pour l'instant, je n'ai pas d'autre idée pour ce cas.

Yohann

[charly]

je ne vois pas le probleme , tu lance le timer pour un certain temps , et tu le remet a zero pour le onmousemove de la form , sa deverais aller non ?

[Nono40]

Voici une solution basée sur les messages ( ce qui évite la gestion pour chaque composant ). Tu places sur ta fiche uncomposant TApplicationEvents et un Timer.

Dans l'évènement OnMessage du TapplicationEvents tu mets le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm2.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  If (Screen.ActiveForm=Form2)And
   ((Msg.message=WM_KEYDOWN)or(Msg.message=WM_LBUTTONDOWN)or(Msg.message=WM_MOUSEMOVE)) Then
  Begin
    Timer1.Enabled:=False;
    Timer1.Enabled:=True;
  End;
end;

Dans le OnShow de la fiche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm2.FormShow(Sender: TObject);
begin
  Timer1.Enabled:=True;
end;

Dans le OnClose de la fiche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Timer1.Enabled:=False;
end;

Dans le OnTimer du Timer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm2.Timer1Timer(Sender: TObject);
begin
  Close;
end;

[cprogil]

Certaines mises à jour peuvent se faire sans la souris.
Je ne voudrai pas déconnecter un utilisateur qui n'utilise que le clavier !
En plus j'aimerai une solution si possible élégante qui fonctionne dans tous les cas.
Je ne suis pas sur de ce que je dis mais je crois que l'événement OnMouseMove du formulaire ne se déclenche pas lorsque la souris est sur un composant contenu dans le formulaire.

[cprogil]

Merci à Nono40 pour sa solution. Je vais la mettre en oeuvre tout de suite.
Merci également à Yohann et à Charly