在TWebbrowser 里加入html文本

来源：岁月联盟 编辑：exp 时间：2009-05-01
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;
上一篇：如何将integer串转化成byte数组
下一篇：如何在托盘图标实现漂亮的菜单

图片内容

最近更新

随机推荐