截取WM_HSCROLL和WM_VSCROLL的消息！！

[ttoth12]

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，显示网页，网页有时候超过那个屏幕大小，就会产生下拉滑块，但是我拖动那个边界的移动滑块，好像并不触发那个事件，请问各位大侠这个是为什么！！

[ttoth12]

谢谢楼上，我去试验一下！！

[oushengfen]

很多的组件截取这两个消息都不是简单地能截取的，一般采用的方法进行方法替换，网上搜索一下，很多的。

[ysai]

TWebBrowser只是封装了COM组件,并不是普通的Window,你这样不行的
要截获它的消息,得了解它的接口,好象用js代码可以做到

[Elysium]

com组件是基于事件的，不是基于消息
问========================================

我使用webbrowser控件，但是想用自己的滚动条，但不知如何得到webbrowser中滚动条的长度，怎么办？谢谢！！

2004-10-24

答========================================

抱歉拖了很久才回复你的问题。
WebBrowser的滚动条不是一般的Windows滚动条，用GetScrollPos或GetScrollInfo等API是不能访问的。下面的代码演示了在VC中如何通过HTML接口来访问浏览器的滚动条。

HRESULT hr;
IDispatch *pDisp = GetHtmlDocument();
ASSERT( pDisp ); //if NULL, we failed

// 获得Html文档指针
IHTMLDocument2 *pDocument = NULL;
hr = pDisp->QueryInterface( IID_IHTMLDocument2, (void**)&pDocument );
ASSERT( SUCCEEDED( hr ) );
ASSERT( pDocument );

IHTMLElement *pBody = NULL;
hr = pDocument->get_body( &pBody );
ASSERT( SUCCEEDED( hr ) );
ASSERT( pBody );

// 从body获得IHTMLElement2接口指针，用以访问滚动条
IHTMLElement2 *pElement = NULL;
hr = pBody->QueryInterface(IID_IHTMLElement2,(void**)&pElement);
ASSERT(SUCCEEDED(hr));
ASSERT( pElement );

// 向下滚动100个像素
pElement->put_scrollTop( 100 );

// 获得文档真正的高度，不是可见区域的高度
long scroll_height;
pElement->get_scrollHeight( &scroll_height );

// 获得文档真正的宽度，不是可见区域的宽度
long scroll_width;
pElement->get_scrollWidth( &scroll_width );

// 获得滚动条位置，从顶端开始
long scroll_top;
pElement->get_scrollTop( &scroll_top );

引用地址：FAQ：如何访问WebBrowser的滚动条

[Elysium]

还不行？
发了这么多帖子