求助：如何在TWebBrowser打开的网页里插入标注信息？

Question

比如在网页每个链接后面加一个小图标，内容是“点击这里在新窗口打开该链接”谢谢！！

Answer 1

procedure AppendToWB(WB: TWebBrowser; const html: widestring) ;
var
   Range: IHTMLTxtRange;
begin
   Range := ((WB.Document AS IHTMLDocument2).body AS IHTMLBodyElement).createTextRange;
   Range.Collapse(False) ;
   Range.PasteHTML(html) ;
end;这个可以在网页后面加上部分信息， 但如何在中间每个符合条件的地方都能插入html呢？

Answer 2

请问如何加？ 就是想要修改里面的html代码，然后在浏览器上显示修改后的结果 - 如有范例请贴出，谢谢，100分不够再加

Answer 3

http://msdn.microsoft.com/archive/en-us/samples/internet/ie55/EdAnnotator/default.asp