Discussion :

[pascal07]

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

[pascal07]

J'ai trouvé: Intercepter le message wm_nclbuttonDown :

Code :

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

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;