Delphi의 ScrollBox의 스크롤이 있을시 마우스 휠로 움지기이지 않을 경우 Scrollbox 콤포넌트가 올려진 홈의 MouseWheel 이벤트에 아래와 같이 추가하면 됩니다.
|
1 2 3 4 5 |
if WheelDelta >= 0 then SendMessage(ScrollBox1.Handle, WM_VSCROLL, SB_LINELEFT, 0) else SendMessage(ScrollBox1.Handle, WM_VSCROLL, SB_LINERIGHT, 0); Handled := True; |