Discussion :

[programaniac]

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

[OutOfRange]

Salut

Y'aurait pas autre chose
Si je fais ça

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.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.

[programaniac]

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?

[Sub0]

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; ???

combien de fois il incrémente chez toi?

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