Discussion :

[looping]

bonsoir,

je voudrais savoir si il y a un moyen de detecter et de declencher un evenement sur un scrolling horizontal d'un dbgrid ?


merci

[TicTacToe]

Salut

Tu peux utiliser les messages pour cela.

définir la procedure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TForm1.GridWindowProc(var Message: TMessage);
begin
  OldGridProc(Message); // appel de l'ancien gestionnaire messages
  if Message.Msg = WM_HSCROLL then
    // Ton code quand il y a scrolling
end

et rediriger les messages vers cette procedure en gardant l'ancien gestionnaire:
(dans le OnCreate de ta form par exemple)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
var OldGridProc: TWndMethod; // définie dans ta form
...
// et dans le create
OldGridProp := DBGrid.WindowProc;
DBGrid.WindowProc := GridWindowProc;
...