Discussion :

[Goldenkiller]

bonjour tlm,

J'aimerai fermer une fenetre lorsque la souris est inactive, pour cela j'utilise un Timer que je reinitialise lorsque je bouge la souris et si la souris ne bouge plus il devrait fermer la fenetre.

Mais le probleme c est qu il n a pas l air de passer dans la procedure OnMouseMove et donc je n arrive pas a redefinir l'intervalle de mon timer et ferme d'office ma forme.

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TFbiblio.TabSheet1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
 timer.Interval := 3;
end;
 
procedure TFbiblio.TimerTimer(Sender: TObject);
begin
 Fbiblio.Close;
end;

[lil_jam63]

Fais plutot un test sur la position de ta souris dans l'evenement onTimer, si la position est toujours la même tu fermes, sinon tu réinitialises, l'evenement onMouseMove se produit seulement quand la souris passe au dessus de ton controle.

[Goldenkiller]

je fais ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var Poscurseur : Tpoint;
 
procedure TFbiblio.FormActivate(Sender: TObject);
begin
 GetCursorPos(Poscurseur);
end;
 
procedure TFbiblio.TimerTimer(Sender: TObject);
var newposcurseur : Tpoint;
begin
  GetCursorPos(newposcurseur);
  if newposcurseur = Poscurseur then Fbiblio.Close;
end;

au moment du " if newposcurseur = Poscurseur " --> type incompatible alors que c est 2 Tpoint :s

[lil_jam63]

Fais le test directement sur les valeurs

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.FormActivate(Sender: TObject);
begin
  GetCursorPos(PosCurseur);
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  newposcurseur : Tpoint;
begin
  GetCursorPos(newPosCurseur);
  if (newPosCurseur.X = PosCurseur.X) and (newPosCurseur.Y = PosCurseur.Y) then Close
  else GetCursorPos(PosCurseur);
end;

[Goldenkiller]

Exellent ca marche.

merci lil_jam63 pour ta solution et la rapidité de reponse



youhouuu :p


pour que se soit complet voila la soluce

Code :

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

1
2
3
4
5
6
7
8
9
 
  GetCursorPos(newposcurseur);
  if ((newposcurseur.X = Poscurseur.X) and (newposcurseur.Y = Poscurseur.Y))
  then Fbiblio.Close
  else begin
   Poscurseur.X := newposcurseur.X;
   Poscurseur.Y := newposcurseur.Y;
   timer.Interval := 20000;
  end;

[Goldenkiller]

J'ai oublier de penser a une chose, je ne dois pas gerer que le curseur mais aussi le clavier, si il est occuper d'écrire dans une edit ou autre, je doit pouvoir réenitialier mon compteur !

est ce possible avec un evenement de la forme?


ps : il y a un evenement onkeypress de la form, mais ca ne marche pas

[Mac LAK]

ps : il y a un evenement onkeypress de la form, mais ca ne marche pas

T'as pensé à mettre la propriété "KeyPreview" de ta TForm à la valeur "True" ?

[Goldenkiller]

Merci Mac LAK, effectivement je en l'ai pas mis a True.

Bon j'ai du rajouter 1 compteur. Donc j en ai un pour les touches et pour le curseur de la souris. Je pense que cela fonctionne bien. Logiquement si mon programme est inactif, il se fermera apres 40sec.

Merci à vous 2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
var Poscurseur : Tpoint;
 
procedure TFbiblio.FormActivate(Sender: TObject);
var i : byte;
begin
 TimerCurseur.Interval := 30000;
 TimerTouche.Interval := 10000;
 TimerTouche.Enabled := True;
 GetCursorPos(Poscurseur);
end;
 
procedure TFbiblio.TimerCurseurTimer(Sender: TObject);
var newposcurseur : Tpoint;
begin
  if Bfermsess then begin
   GetCursorPos(newposcurseur);
   if ((newposcurseur.X = Poscurseur.X) and (newposcurseur.Y = Poscurseur.Y))
   then  Fbiblio.Close
   else begin
    Poscurseur.X := newposcurseur.X;
    Poscurseur.Y := newposcurseur.Y;
    TimerCurseur.Interval := 30000;
   end;
  end;
end;
 
procedure TFbiblio.FormKeyPress(Sender: TObject; var Key: Char);
begin
 //Mettre le KeyPreview a True dans la propriete de la forme
 GetCursorPos(Poscurseur);
 TimerCurseur.Interval := 30000;
 TimerTouche.Interval := 10000;
 Bfermsess := false;
end;
 
procedure TFbiblio.TimerToucheTimer(Sender: TObject);
begin
 GetCursorPos(Poscurseur);
 Bfermsess := True;
 TimerCurseur.Interval := 30000;
 TimerCurseur.Enabled := True;
end;
 
procedure TFbiblio.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 TimerCurseur.Enabled := False;
 TimerTouche.Enabled:= False;
end;