Discussion :

[scorplex]

Bonjour

J'ai collé un scroll box, dans lequel je créé dynamiquement des panels.
Quand la taille totale dépasse la zone affiché, mon scrollBox fait apparaitre une scrollBar automatiquement. Je peux déplacer la barre avec la souris et tout va bien.
Par contre impossible de le faire avec la rouette.

Il y a bien les événement onMouseWheel, onMouseWheelUp et onMouseWheelDown, mais j'ai beau roulettiser sur mon scrollbox, je ne passe jamais dans cet événement.

Il doit y avoir une propriété pour dire de récupérer le message mais là si je mets du code dans la fenetre mère, elle le récupère mais je dois alors gérer la position du pointeur souris pour déterminer sur quel compo ça se passe.

Bref pas terrible comme solution, surtout que la scrollBox doit forcément gérer ça en natif mais je sais pas comment.

Merci de m'aider

[Sub0]

Salut!

Je suis tombé sur ce topic lors d'une recherche, étonné de voir aussi que la molette ne fonctionnait pas avec un ScrollBox. J'ai qu'en même une solution en utilisant l'évènement OnMouseWheel de la Form :

Code :

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

1
2
3
4
5
6
7
8
9
10
Procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
Begin
  If (WheelDelta > 0) Then
    With ScrollBox1.VertScrollBar Do
      Position := Position - (Panel1.ClientHeight Div 20);
  If (WheelDelta < 0) Then
    With ScrollBox1.VertScrollBar Do
      Position := Position + (Panel1.ClientHeight Div 20);
End;

J'ai malgré tout un problème sur la valeur du pas de déplacement. Il me semble que c'est configurable dans les options de la souris mais je n'en suis pas sûr. La hauteur divisée par 20 me donne de bons résultats en attendant de trouver le moyen d'obtenir la vraie valeur de ce pas. à+

[krokmitaine]

Salut,
Excellente méthode Sub0. Pour moi elle a marché directement.
Par contre je vois pas les problèmes auxquels tu fais allusion.
Chez moi, tout parait fonctionner parfaitement.
Au fait, as-tu trouvé une valeur de pas idéale autre que 20 ?
Encore merci.

[Sub0]

Non, justement, c'est cette valeur qu'il me manque.
Et concernant les problèmes auxquels je fais allusion :
http://www.developpez.net/forums/sho...d.php?t=206406
Il existe diverses solutions à mon problème, mais aucune ne donne le résultat recherché.
à+

[Lung]

Moi, je passe par un edit (ou tout autre objet sur mon panel dans la scrollbox):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
   _OldEditMobilierProc := EditMobilier.WindowProc;
   EditMobilier.WindowProc := EditMobilier_ScrollProc;
 
 
procedure TFormDevis.EditMobilier_ScrollProc(var Msg: TMessage);
begin
   //.Interception de l'évènement WM_MOUSEWHEEL.
   if Msg.Msg = WM_MOUSEWHEEL then
   begin
      if Msg.WParamHi > 120 then
         ScrollBox.Perform(WM_VSCROLL, SB_LINEDOWN, 0)
      else
         ScrollBox.Perform(WM_VSCROLL, SB_LINEUP, 0);
 
      Exit;
   end;
 
   //.Traitement normal des autres message.
   _OldEditMobilierProc(Msg);
end;