[D7] TStringGrid, OnMouseWheel et OnClick

Bonjour,
j'ai un TStringGrid sur ma Form et un traitement dans le OnClick du TStringGrid.

A l’exécution, lorsque l'on utilise la roulette de la souris dans la grille, le OnClick de la grille se déclenche. Je voudrais éviter cela.

Pour l'éviter, j'ai mis un booléen dans le onMouseWheelup et down.

ça fonctionne, mais n'y a t il pas une méthode plus propre pour bloquer le OnClick dans le OnMouseWheel ?

Merci d'avance

A+
Charly

Ce comportement est normal et natif au TStringGrid.
Lorsque tu fait un coup de roulette, tu changes de lignes et lorsque tu change de ligne, cela fait automatiquement un clic dans la cellule pour la sélectionner.

Le code ci-dessous est copié depuis la VCL.
Pour rappel TStringGrid hérite de TCustomGrid

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

function TCustomGrid.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; begin Result := inherited DoMouseWheelDown(Shift, MousePos); if not Result then begin if Row < RowCount - 1 then Row := Row + 1; Result := True; end; end;   procedure TCustomGrid.SetRow(Value: Longint); begin if Row <> Value then FocusCell(Col, Value, True); end;   procedure TCustomGrid.FocusCell(ACol, ARow: Longint; MoveAnchor: Boolean); begin MoveCurrent(ACol, ARow, MoveAnchor, True); UpdateEdit; Click; end;

---

ça n'engage que moi, mais j'aurais contourné le problème de la même façon.
Après, il faut voir si tu as réellement besoin de cet événement click ou si tu peux en utiliser un autre (ColEnter, RowEnter, CellEnter, ...)

Merci Popo,

je vais conserver ma solution qui fonctionne bien

A+
Charly