Scrollbar vertical non visible d'un scrollbox synchrone avec Richedit

Bonjour,
J'ai un richedit et du coté droit j'ai mis le composant scrollbox avec un Panel à l'interieur. (dont je mets à côté de la ligne du richedit sur le panel une petite image!)
Le panel à la même haute que le texte du richedit. Le but est quand je déplace le scrollbar vertical du richedit la scrollbox se déplace aussi synchrone.
Voici comment j'ai fait et ça fonctionne.

Code:

---

1 2	scrollbox1.VertScrollBar.Position := GetScrollPos(RichEdit1.Handle, SB_VERT);

---

Mais je ne voudrais pas que les scrollbars du scrollbox sois visible ainsi j'ai mis «.visible a false»
En mettant la propriété à false le scrollbox ne réagi plus.

Que pouvez-vous me proposer à résoudre ce problème, merci beaucoup.
Salutation

Bonjour,
Je viens de trouver une procédure pour capturer le mouvement du scrollbar avec WM_VSCROLL

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.EdWndProc(var Msg: TMessage); begin Msg.Result := CallWindowProc(POldWndProc, RichEdit1.Handle, Msg.Msg, Msg.WParam, Msg.LParam);   if (Msg.Msg = WM_VSCROLL) then begin Label3.Caption := 'Pos ' + IntToStr(HIWORD(Msg.Wparam)); end; end;

---

Est-ce possible de capture la touche flêche Bas/Haut (et Mouse Weel) dans cette procedure
par example :

Code:

---

1 2	if (Msg.Msg = WM_FLECHE_BAS ???? ) then …

---

Si c'est possible je vous remerci d'un petit example.
Salutation.

Code:

---

1 2 3 4 5

if Msg.Msg = WM_KEYDOWN then case Msg.WParam of VK_UP : //Up VK_DOWN : //Down end;

---

WM_KEYDOWN est aussi appelé en cas de répétition (touche maintenue enfoncée)

Code:

---

1 2 3 4

if Msg.Msg = WM_MOUSEWHEEL then if HiWord(Msg.WParam) > 0 then //Up else //Down

---

Super, c'est exactement les paramètres que je cherchais, Merci beaucoup car maintenant je peux mieux avancer.
Je viens juste de constater que la valeur HiWord(Msg.WParam) est toujour superieur a 0
pour que sa fonctionne et qui prend l'autre condition j'ai du changer la valeur de 0 à 120

Puis-je l'aissez la valeur 120*???

Code:

---

1 2 3

if HiWord(Msg.WParam) > 120 then // UP else // Down

---