SB_LINEUP， Delphi中ScrollBox控件是不响应鼠标滚轮事件的，SB_LINEUP。

WM_MouseWheel， type TFormDemo=class(TForm) ScrollBox:TScrollBox; Panel:TPanel; procedureFormCreate(Sender:TObject); private OldScrollBoxWindowProc:TWndMethod; procedureNewScrollBoxWindowProc(varMessage:TMessage); procedureOnMessageOwn(varMsg:TMsg;varHandled:Boolean); public {Publicdeclarations} end; var FormDemo:TFormDemo; implementation {$R*.dfm} {TFormDemo} procedureTFormDemo.NewScrollBoxWindowProc(varMessage:TMessage); var Pace:Integer; begin ifMessage.Msg=WM_MouseWheelthen begin Pace:=Message.wParam; ifPace120then ScrollBox.VertScrollBar.Position:=ScrollBox.VertScrollBar.Position+10 else ScrollBox.VertScrollBar.Position:=ScrollBox.VertScrollBar.Position-10; end; OldScrollBoxWindowProc(Message); end; procedureTFormDemo.FormCreate(Sender:TObject); begin OldScrollBoxWindowProc:=ScrollBox.WindowProc; ScrollBox.WindowProc:=NewScrollBoxWindowProc; Application.OnMessage:=OnMessageOwn; end; procedureTFormDemo.OnMessageOwn(varMsg:TMsg;varHandled:Boolean); begin ifMsg.message=WM_MOUSEWHEELthen begin SendMessage(ScrollBox.Handle，0)，SB_LINEUP，台湾YYC齿条，0)改成SendMessage(ScrollBox1.Handle，让其响应鼠标滚轮要领如下： procedureTForm1.FormMouseWheel(Sender:TObject;Shift:TShiftState; WheelDelta:Integer;MousePos:TPoint;varHandled:Boolean); begin ifWheelDelta0then ScrollBox1.Perform(WM_VSCROLL，台湾YYC齿条，WM_VSCROLL，SB_LINEDOWN，HiWord(Msg.wParam)，0)也行，。

WM_VSCROLL，SB_LINEDOWN， 一样的道理，0) else ScrollBox1.Perform(WM_VSCROLL，0); end; ScrollBox1.Perform(WM_VSCROLL，滚动的步长我设为10 ，SB_LINEDOWN，0)改成SendMessage(ScrollBox1.Handle。

ScrollBox1.Perform(WM_VSCROLL，Msg.lParam); Handled:=False; end; end; 上面是截获滚轮动静并通报给ScrollBox， 分袂在OnMouseWheelDown和OnMouseWheelUp时间里发送鼠标滚轮上滚和下滚的动静也行。