点击信息在WM_HSCROLL、WM_VSCROLL中
通过这两个过程来拦截
procedure WMHScroll(var Msg: TWMHScroll); message WM_HSCROLL;
procedure WMVScroll(var Msg: TWMVScroll); message WM_VSCROLL;