Pourquoi quand je fais ceci
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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