Probleme avec FormMouseWheel

Pourquoi quand je fais ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);   begin If (WheelDelta > 0) Then begin Inc(test); ShowMessage(IntToStr(test)); end;   end;

---

l'ordi me fait deux fois la meme chose?

Inc(test);
ShowMessage(IntToStr(test));

donc au lieux d'avoir un seul show message avec une seule incrémentation
il me le fait 2 fois??????


Merci

Salut

Y'aurait pas autre chose :?
Si je fais ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin If (WheelDelta > 0) Then begin Inc(test); end; label1.Caption:=(IntToStr(test)); end;   procedure TForm1.FormCreate(Sender: TObject); begin test:=0; end;

---

mon label affiche 1, puis 2 , puis 3...
Méfie-toi du showmessage qui interromp le cours de l'execution.;)

en fait mon problème c'est qui incrémente 2 fois mais moi je veux qu'il le fasse qu'une seule fois

combien de fois il incrémente chez toi?

Citation:

---

Envoyé par F1

Handled signale si le contrôle a géré l'événement ou non. (Donnez à Handled la valeur False pour que le parent de l'objet gère l'événement.)

---

Handled := True; ???

Citation:

---

Envoyé par programaniac

combien de fois il incrémente chez toi?

---

L'exemple ci-dessus incrémente 1 fois par évènement, pas plusieurs fois.