Delphi中的TEventObject和WebBrowser如何实现长尾词功能？

本文共计358个文字，预计阅读时间需要2分钟。

我创建了一个TEventObject来为TWebBrowser提供OnMouseDown和OnMouseMove事件。在移动鼠标或单击Web浏览器时，事件处理正常。但当滚动或单击垂直滚动条时，会出现EZeroDivide异常。