Discussion :

[geocad]

Bonjour,
J'ai une petite appli dans laquelle je fais un traitement rapide mais provisoire quand on fait rouler la molette de la souris. Pour ça, c'est OK, j'utilise OnMouseWheel(...) Mais le Hic, c'est que je dois faire un traitement plus fin, dès qu' on arrête la manipulation de la molette. Ce serait facile s'il existait un évènement qu'on pourrait appeler "OnMouseWheelStop", mais voilà, j'ai pas trouvé, et je ne sais pas trop comment faire pour détecter la fin de la manip de la molette.
Quelqu'un a-t-il une idée?

[Pedro]

Salut
Peux-tu nous en dire plus sur le traitement à effectuer? On pourrait essayer de voir s'il n'y a pas un autre moyen de faire ce que tu veux

[geocad]

Bon, comme tout le monde est resté trés sage, je vais vous faire part de la solution que j'ai trouvé.
Elle utilise un timer dont l'intervalle a été réglé sur 200 milli sec.
Ce qui correspond assez bien à l'intervalle de temps entre deux évènements MouseWheel.

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
var WheelOn : boolean = false;
 
procedure TForme1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
 
        TraitementProvisoireRapide; //
 
        WheelOn := true;
        Timer1.enabled := true; // Traitement Final dans OnTimer
        Handled := true;
end;
 
procedure TForme1.Timer1Timer(Sender: TObject);
begin
    // détection de la fin d'activation de la molette
    if WheelOn then begin WheelOn:=false; exit; end;
 
    //ici la molette n'a pas été activée depuis Timer1.interval milli sec
    Timer1.enabled := false;
    TraitementFinal;
 
end;

Qui dit "MIEUX"?