problem molette de la souris avec scorllbox

Question

bonjour a tous j'ai un problem avec mon scrollbox 
dans le scrollbar de scrollbox . je veut changer la position de scrollbar avec la moltte de la souris . merci de me répondre javascript:Insert_Emoticon('/imgs2/smile.gif');

cs_bazbazus · Answer

impossible she moi de modifier le scrollbar avec la molette et la souris marche normal

Cirec · Answer

Salut,

tout simplement comme ça

Molette = = Scroll Verticale



Molette + Shift == Scroll Vertical (Début & Fin)



Molette + Ctrl == Scroll Horizontal



Molette + Ctrl + Shift == Scroll Horizontal


 (Début & Fin)










Procedure 

TForm1.ScrollBox1MouseWheelDown(Sender: TObject; 
  Shift: 
TShiftState; MousePos: TPoint;  Var  Handled: 
Boolean); 
Begin 
  If (ssCtrl In Shift) And 
(ssShift In Shift) Then 
    SendMessage(ScrollBox1.Handle, 
WM_HScroll, SB_RIGHT, 0) 
  Else 
  If ssShift In 
Shift Then 

    SendMessage(ScrollBox1.Handle, WM_VScroll, SB_BOTTOM, 0) 
  Else 
  If 
ssCtrl In Shift Then 
    SendMessage(ScrollBox1.Handle, 
WM_HScroll, SB_LINERIGHT, 0) 
  Else 
    SendMessage(ScrollBox1.Handle, 
WM_VScroll, SB_LINEDOWN, 0); 
  Handled : = True; 

End; 

Procedure TForm1.ScrollBox1MouseWheelUp(Sender: 
TObject; 
  Shift: TShiftState; MousePos: TPoint; Var 
Handled: Boolean); 
Begin 
  If 
(ssCtrl In Shift) And (ssShift In 
Shift) Then 

    SendMessage(ScrollBox1.Handle, WM_HScroll, SB_LEFT, 0) 
  Else 
  If 
ssShift In Shift Then 
    SendMessage(ScrollBox1.Handle, 
WM_VScroll, SB_TOP, 0) 
  Else 
  If ssCtrl In 
Shift Then 

    SendMessage(ScrollBox1.Handle, WM_HScroll, SB_LINELEFT, 0) 
  Else 

    SendMessage(ScrollBox1.Handle, WM_VScroll, SB_LINEUP, 0); 
  Handled :=  True; 
 End ; 

Procedure 
TForm1.Image1Click(Sender: TObject); 
Begin 

  ScrollBox1.SetFocus; 
End; 

 
@+
Cirec

<hr siz ="" />

cs_bazbazus · Answer

merci mon frére cirec

Problem molette de la souris avec scorllbox

3 réponses

Votre réponse

Discussions similaires