我在用TWebBrowser实现对网页的编辑,下面是源码,是在内容中插入源码var unsubscribeStr : string;
    ovSelection: OleVariant;
    ovTextRange: OleVariant;ovSelection := Edit.OleObject.Document.selection; //获得选择对象
ovSelection.Clear;
ovTextRange := ovSelection.createRange; // create a TextRange from the current selection
ovTextRange.pasteHTML(unsubscribeStr);  //插入源码,  unsubscribeStr 的内容是 <A href="mailto:*** 因为隐私原因删除电子邮件地址 ***>***</A>以上版本在IE 11以前的版本可以,在win 10刚刚推出时的IE 11版本中也可以,最近将win 10升级到了最新版,IE 11也升级到了最新版,上面的代码就无效了。后来经过测试,pasteHTML函数可以插入 <A href="http://www.***">**</A>,也就是可以插入http, https, ftp, telnet连接,但是无法插入mailto, news连接。 当插入mailto链接时,将会自动mailto链接,只留下了<A>***</A>