Discussion :

[Bernard B]

Bonjour,

Application VCL Delphi 11.3 Commuinity Windows 10.

Je veux utiliser la roulette de la souris pour faire changer de page dans un logiciel de visualisation de photos.
J'ai le problème avec le nombre d'événements que génère la roulette de la souris.
Un cran de la roulette génère 8 événements consécutif en général ?
Ce qui fait des changements de pages multiples indésirables.
Quelle serait la meilleure solution pour les filtrer ?
J'ai essayé avec un compteur, avec un intervalle de temps rien ne donne de résultats vraiment satisfaisants.

[ALWEBER]

Tu peux t'inspirer de cela

Code :

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

1
2
3
4
5
 
  if (WheelDelta < 0) and (Profondeur < (kNombrePositions - 1)) then
    Profondeur := Profondeur + 1;
  if (WheelDelta > 0) and (Profondeur > 0) then
    Profondeur := Profondeur - 1;

que j'utilize dans une fonction zoom
plus d'info si besois

[Bernard B]

Merci Alweber, mais mon soucis n'est pas là.
Je détecte bien le sens pour monter ou descendre dans les pages, le problème c'est qu'un seul cran passé sur le roulette me génère une rafale de 7 ou 8 OnMouseWheel donc 7 ou 8 changements de page.
Il faut que soit je déclenche le changement de page sur le premier et qu'ensuite je puisse ignorer les autres ou que j'arrive à attendre la fin de la rafale pour déclencher le changement de page.

[Volid]

Il faut accumuler les appels et dès qu'une grandeur souhaitée est atteint on déclenche le traitement, à la base MouseWheel est pour les déplacements par lignes et pas par pages

Code :

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

1
2
3
4
5
6
7
8
9
10
 if (WheelDelta > 0)  then
    Profondeur := Profondeur + 1 
  else
    Profondeur := Profondeur - 1;
 
   if (Profondeur mod 8) = 0 then
   begin
    /// traitement ici
 
   end;

[Bernard B]

Effectivement il serait possible de filtrer sur la "profondeur" comme le propose Alweber ou Volid, le pb c'est que cette profondeur est variable et elle dépend certainement de la machine sur laquelle tourne l'application (je n'ai pas testé faute de temps).
J'ai trouvé une solution qui semble très bien fonctionner :

A chaque événement OnMouseWheel je met l'Enabled d'un timer spécifique réglé sur 50 ms à True.
Comme les événements d'une rafale sont avec des écarts de 1 à 10 ms, à chaque fois je relance le timer et il ne déclenche l'action que sur le dernier événement de la rafale, exactement ce qu'il me faut !
Globalement cela entraine un retard de commande compris entre 65 et 100 ms ce qui est complètement invisible dans mon application.