delphi 让ScrollBox响应鼠标滚轮事件.docxVIP

delphi 让 ScrollBox 响应鼠标滚轮事件 Delphi7 中ScrollBox控件是不响应鼠标滚轮事件的，让其响应鼠标滚轮方法如下： procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin if WheelDelta 0 then ScrollBox1.Perform(WM_VSCROLL,SB_LINEDOWN,0) else ScrollBox1.Perform(WM_VSCROLL,SB_LINEUP,0); end; ScrollBox1.Perform(WM_VSCROLL,SB_LINEDOWN,0) 改成SendMessage(ScrollBox1.Handle,WM_VSCROLL,SB_LINEDOWN,0) ， ScrollBox1.Perform(WM_VSCROLL,SB_LINEUP,0) 改成SendMessage(ScrollBox1.Handle,WM_VSCROLL,SB_LINEUP,0) 也行。 一样的原理。 分别在OnMouseWheelDown 和 OnMouseWheelUp 时间里发送鼠标滚轮上滚和下滚的消