在TWebbrowser 里加入html文本

在TWebbrowser 里加入html文本
2009-05-01 16:35:44     我来说两句      
收藏    我要投稿
uses
  
MSHTML;

procedure TForm1.Button1Click(Sender: TObject);
begin 
  
Webbrowser1.Navigate(www.baidu.com);
  //启动一个网站的网页
 end;

procedure TForm1.Button2Click(Sender: TObject);
var
  
Range: IHTMLTxtRange;
begin
  
Range := ((WebBrowser1.Document as IHTMLDocument2).body as
    
IHTMLBodyElement).createTextRange;
  Range.collapse(False);
  Range.pasteHTML(<br><b>大家好,我是老李,csdn Id Laoli</b>);
//加入你要加的东西
end;

郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。