Discussion :

[Charly910]

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

[popo]

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 Delphi :

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

[Charly910]

Merci Popo,

je vais conserver ma solution qui fonctionne bien

A+
Charly