Discussion :

[Soulama]

Bonjour tt le monde,
je veux realiser un TimeOut sur une Form que je crée en RunTime.
La form a un TWebBrowser: (proprieté Align en Client).
Le TimeOut doit fermer la Form si lutilisateur ne deplace plus la souri
aprés un temps x minute.
Mon algo est le suivant:
Definir une Variable counter Type Integer.
Un timer incremente cette Variable jusqua la valeur X.
A chaque onMouseMove la Varaible counter est mise a zero(Reset).
Si la variable Counter depace le nombre x Fermer la Form.
Mon probleme c que le TWebBrowser na pas devenement onmousemove.
Si quelqun a une autre Idée, sui preneur?
Merci

[Qwazerty]

SAlut
Si je devais resoudre se type de probleme sans onmousemove, je pense que j'utiliserai GetCursorPos, dans ton timer tu utilise une variable exterieur.

Code :

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

1
2
3
4
5
6
7
var PositionSouris
 
dans la procedure du timer
Tu test si la position de la souris est la meme que le tour d'avant
If PositionSouris = GetCursorPos Then la souris n'a pas bougé else Elle a bougé;
Tu reprend la nouvelle position
positionSouris := GetCursorPos

Et ainsi de suite
J'espere avoir ete claire
a+

[Qwazerty]

Re j'ai ete pris de remord mes explication etait pas franchement claire
Avec ca ca devrai etre mieux

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
 
 
Var PositionAncienne:Tpoint;
 
procedure TForm1.Timer1Timer(Sender: TObject);
Var PositionActuelle : Tpoint;
begin
     //recuperation de la position actuel de ta souris
     getcursorpos(PositionActuelle);
 
     //Tester si la souris a bouger depuis le dernier tour
     If PositionAncienne = PositionActuelle then   //la il faut tester les X et y des position
        {Le code que tu souhaite si la position n'a pas changée, une incrementation d'une Valeur par exemple}
     Else
         {Code si la souris a bougée, remise a zero de la Valeur};
 
     //prise en compte de la nouvelle position
     getcursorpos(PositionAncienne);
 
end;

Voilou a+

[Soulama]

Merci, je vais essayé
@+

[Soulama]

Cetait bien la solution que je cherchais.
Merci pour ton Idee.