在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;
原文地址:https://www.cnblogs.com/HuiLove/p/4026705.html