Delphi 2007高亮显示TWebBrowser鼠标指向的HTML元素

Delphi 2007 的高亮功能挺实用,想在桌面程序里搞个网页预览又能交互?用就对了。嗯,这里讲的重点是,怎么在不用 JavaScript 的情况下,高亮显示鼠标指到的 HTML 元素。

核心思路比较简单:用TWebBrowser.Document拿到IDispatch,再转IHTMLDocument2,调用elementFromPoint找元素。找到后,造个自定义窗体当焦点框,配个position: absolute的样式,位置跟着元素走,响应也快。

要注意哦,全程都是 Delphi 本地搞的,没用 JavaScript,性能还不错。不过坐标转换别写错了,毕竟浏览器里的坐标和窗口坐标对不太上。示例工程和也挺直观,你可以对着看效果。

想玩得花点,可以试试改下高亮的样式,矩形、半透明随你调。如果你想多看点相关用法,TWebBrowser 应用指南也还不错。嗯,做界面交互或者网页自动化都挺好用的。

如果你也在用Delphi 2007做桌面开发,想搞点高级交互,不妨把这个高亮思路加进去,能省你不少时间。

zip 文件大小:277.81KB