2005年8月7日凌晨
晚上想到实现横向滚动是否可以通过右键+滚轮来实现,首先是想通过onscroll事件的监控,但是怎么都没法监控到onscroll事件,后来发现需要链接到HTMLWindowEvents2事件中,监控HTMLWindowEvents2中的onscroll事件,没办法,在DoDocumentComplete中加入了链接到HTMLWindowEvents2中的代码。
但是这样有一个问题,首先是这个onscroll事件是在滚动之后才发生的!其次是没法在事件发生时知道是向上还是向下滚动!
后来决定监控onmousewheel事件,但是不知道这个事件的ID,只知道这个在VC中的定义是DISPID_ONMOUSEWHEEL,但是网上找不到这个常量的值是多少,发宝气了,找了一个platform SDK装了一把,不错,这个里面有DISPID_ONMOUSEWHEEL的常量定义:
#define DISPID_NORMAL_FIRST 1000
#define DISPID_ONMOUSEWHEEL (DISPID_NORMAL_FIRST + 33)
就是说onmousewheel事件的ID是1033,这样就简单了,根据MSDN中对onmousewheel的说明创建一个onmousewheel事件的处理函数:
procedure docmousewheel(const pEvtObj: IHTMLEventObj);
现在还有一个问题,在pEvtObj中没法知道滚轮是向上还是向下,又在MSDN中看了一下,得知onmousewheel事件的参数pEvtObj实现了IHTMLEventObj4接口,而这个接口的wheelDelta可以得知滚动的方向和距离。
但是问题又来了,MSHTML.pas中没有IHTMLEventObj4接口的定义,没办法,从platform SDK中提供的mshtml.idl编译成mshtml.tlb,然后引入吧。但是mshtml.idl怎么都没法编译,找到网上各种办法都不行,后来打开VB开了一下系统中的mshtml.tlb,NND,居然包含IHTMLEventObj4接口定义,没说的,引入这个tlb吧,又有问题了,不知道怎么的,引入生成的MSHTML_TLB.pas怎么都没办法在工程中编译,只好将IHTMLEventObj4以及IHTMLEventObj4Disp接口的定义拷贝到MSHTML.pas中间,然后编写onmousewheel方法:
procedure TMyIEHelper.docmousewheel(const pEvtObj: IHTMLEventObj);
var
mousedata : IHTMLEventObj4;
begin
if(pEvtObj.button = 2) then
begin
pEvtObj.QueryInterface(IHTMLEventObj4, mousedata);
if(assigned(mousedata)) then
begin
beginRScroll := true;
if(mousedata.wheelDelta > 0) then
(IE.Document as IHTMLDocument2).parentWindow.scrollBy(-20, 0)
else
(IE.Document as IHTMLDocument2).parentWindow.scrollBy(20, 0);
end;
pEvtObj.returnValue := false;
pEvtObj.cancelBubble := true;
end;
end;
成功!!