Utilisation du bouton SCROLLING de la souris

Bonjour,

Dans une fenêtre FORM avec un SCROLLBOX intégré, on doit cliquer sur la barre pour descendre ou monter. Comment faire pour pouvoir utiliser les touchers PAGE-DOWN et PAGE-UP du clavier ainsi que le bouton SCROLLING de la souris comme dans une fenêtre de navigation normale ?

Merci de votre aide.

PageUp/down, je sais pas, pour la molette tu utilises l'evenement FormMouseWheel de ta Form

procedure TForm.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);

et la valeur qui t'interresse est WheelDelta, qui vaut +/- 120 par defaut dans un environnement zindoz. Donc pour créer des mvts de 1 unité  utilise "WheelDelta div 120"


gnh !

Merci pour ta réponse. Mais où puis-je trouver l'événement FormMouseWhell car je ne le trouve pas dans l'inspecteur d'objets de la Form.
Merci de ton aide.
PS : j'utilise DELPHI 7 et je suis assez inexpérimenté.

inspecteur d'objets > evenements > OnMouseWheel, OnMouseWheelDown, OnMouseWheelUp

astuce pour la TScrollBox :

mettre les propriétés HorzScrollBar.Tracking et VertScrollBar.Tracking a true

---

La theorie c'est quand on sait tout, mais que rien ne fonctionne.
La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

---

Il faut mettre quoi entre Begin et end; ?
J'ai déjà mis les propriétés HorzScrollBar.Tracking et VertScrollBar.Tracking à True et ça ne fonctionne toujours pas 

Voilou...

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
 SendMessage(Handle,WM_VScroll,SB_LINEDOWN,0);
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
 SendMessage(Handle,WM_VScroll,SB_LINEUP,0);
end;

Attention, l'affichage foire un peu quand une listbox (avec scrollbar verticale) a le focus et qu'on fait défiler la form...

@+
Nico {www.ni69.info}

---