截取WM_HSCROLL和WM_VSCROLL的消息!!
TEditWebBrowser = class(TWebBrowser)
private
{ Private declarations }
FParentForm:TWinControl;
FApplication:TApplication;
FOnMouseDown:TMouseDownEvent;
FOnMouseUp:TMouseUpEvent;
FOnMouseMove:TMouseMoveEvent;
FOnDblClick:TDblClickEvent;
FOnKeyDown:TKeyDownEvent;
FOnKeyUp:TKeyUpEvent;
FFocused:boolean;
FisShowSelfPopupMenu:boolean;
FWantReturns:boolean;
FShiftFoceed:boolean;
FScrollx:integer;//获得那个移动x的数值
FScrolly:Integer;//获得那个移动y的数值
function MsgMenuFunc(var MSG:TMessage):boolean;
procedure AppMessage(var Msg:TMsg;var Handled:Boolean);
//寻找顶层应用程序,以使之能通过Hook监视键盘和鼠标
function GetTApplication(F:TComponent):TApplication;
procedure WMKeyDown(var Message:TWMKeyDown);message WM_KEYDOWN;
procedure WMHScroll(var Message: TWMHScroll); message WM_HSCROLL;
procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL;
procedure TEditWebBrowser.WMHScroll(var Message: TWMHScroll);
begin
self.FScrollx := Message.Pos;
showmessage('移动y');
end;
procedure TEditWebBrowser.WMVScroll(var Message: TWMVScroll);
begin
self.FScrollx := Message.Pos;
showmessage('移动x');
end;
TEditWebBrowser 是一个显示网页的控件,继承delphi的组件WebBrowser,显示网页,网页有时候超过那个屏幕大小,就会产生下拉滑块,但是我拖动那个边界的移动滑块,好像并不触发那个事件,请问各位大侠这个是为什么!!