Discussion :

[Omeggg]

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

[denokan]

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.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  Tag := Tag - 1;
  Caption:=IntToStr(Tag);
end;
 
procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  Tag := Tag + 1;
  Caption:=IntToStr(Tag);
end;

ce code fonctionne très bien chez moi, regarde si ton pb ne viens pas plutot de la config de ta souris sur ton pc

[Omeggg]

J'ai testé avec 2 souris différentes, sur 2 PCs différents.
Rien n'y a fait, ça fait le mm problème.
C'est forcément le programme.

J'ai mm poussé l'effronterie jusqu'à regarder si j'avais pas
mis 2 fois le nom de la fonction dans le champ
OnMouseWheel du DFM

Om'

[denokan]

t'a essayé le bout de code que je t'ai donné ? il fonctionne correctement sur ta bécane ?

[Omeggg]

Oui.
Et il marche très bien.
Voilà mon bout de code à moi :

Code :

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

1
2
3
4
5
procedure TForm_param2.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
        variable := variable*(-1) + 1;
end;

OU

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
procedure TForm_param2.FormMouseWheelUp(Sender: TObject;  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
        variable := variable*(-1) + 1;
end;
 
procedure TForm_param2.FormMouseWheelDown(Sender: TObject;  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
        variable := variable*(-1) + 1;
end;

Je précise que Variable est une variable globale initialisée
dans le FormCreate à 0.

Et là, quand j'utilise mon code à moi, dans mon projet,
ça foire, et je sais pas pourquoi.

Om'

[Omeggg]

Plus fort encore :

Ton code je l'avais testé dans un projet à part, et il marchait
tout ce qu'il y a de plus normalement.

Je l'ai inséré directement dans mon Projet en cours
(où ça ne marche pas), injecté directement dans mes
OnMouseWheel, et le Tag du Caption va de 2 en 2 !
C'est à devenir fou !

Om'

[denokan]

effectivement c zarbi
t'a essayé de mettre la var handled à true ?

[Omeggg]

Oh bordel.

Je viens d'essayer de mettre Handled à true.
Et ça marche.
Comment t'as pu penser à ça ?

Je sais même pas exactement à quoi correspond
cette variable, et je sais pas pourquoi elle était
à false sur ce projet...

En tous cas, bien joué, merci merci merci

Omega