Comment détecter l'utilisation ( clic ) des scrollbars ?

Bonjour

pour faire défiler la zone de dessin, l'utilisateur utilise les scrollbar de ma fiche. Ca déclenche l'évenement OnPaint, et je gère cela. OK.

Mais je souhaite réaliser un traitement spécifique quand l'utilisateur utilise ( = clic dessus ) les scroll Bar. Or le composant TControlScrollBar n'a pas d'évenement OnClick ( ou d'autre d'ailleurs ).

Comment détecter un clic sur un objet TControlScrollBar ?

Merci
Pascal07

J'ai trouvé: Intercepter le message wm_nclbuttonDown :

Code:

---

1 2 3 4 5 6 7 8

procedure TScrollBoxPaint.WndProc (var Message: TMessage); begin case Message.Msg of WM_NCLBUTTONDOWN : if Assigned(FOnNCLButtonDown) then FOnNCLButtonDown(Self); WM_NCRBUTTONDOWN : if Assigned(FOnNCRButtonDown) then FOnNCRButtonDown(Self); end; inherited; end;

---