Discussion :

[Ardely]

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 :

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

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

[Ardely]

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

Code :

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

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 :

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

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

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

[Andnotor]

Code :

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

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 :

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

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

[Ardely]

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 :

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

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