Hello tout le monde

j'utilise Delphi 6 version personnelle.

Je cherche à modifier une variable de mon TForm
à chaque mouvement de roulette.

J'ai donc géré sur mon TForm l'évènement OnMouseWheel.

Le problème : la fonction s'execute 2 fois pour 1 seul
mouvement de roulette.
Alors pour les ptits malins qui veulent me demander si je ne roule
pas trop vite avec ma souris je leur répondrai non

Le problème est que c'est une variable binaire et que deux occurences
de l'execution me font revenir au point de départ

J'ai fait plusieurs essais, d'abord physiques (2 souris différentes)
ce qui donne la même chose.

J'ai alors essayé implémenter le OnMouseWheelUp et le OnMOuseWheelDown
à la place, ça m'a donné la même chose.

Ensuite j'ai essayé de faire contre mauvaise fortune bon coeur
en essayant de magouiller et implémenter également le
OnMouseWheelUp et le OnMOuseWheelDown et en modifiant
mon OnMouseWheel.
Ce qui fait que quand je faisais un mouvement vers le bas,
les deux fonctions : OnMouseWheel d'abord, puis OnMouseWheelDown
ensuite s'executaient.

Je m'étais débrouillé pour que chacune de ces deux fonctions au cours
de leur execution fasse la "moitié du chemin" vers le changement
de ma variable vers sa valeur finale.

En vain : comme vous vous en doutez, chacune des deux fonctions
s'exécute deux fois :
OnMouseWheel
OnMouseWheelDown
OnMouseWheel
OnMouseWheelDown
et on revient au point de depart.

J'ai cherché un peu sur le site, un peu sur google,
j'ai pas trouvé de références à ce problème, alors je me
résous à poser la question aux plus confirmés d'entre vous.
Merci d'avance.

Omeggg