IEHelper开发手记(8月7日)

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;

成功！！