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; 人家写的 帮你转IE插件可以参考APPLEVB的文章 或者去我网站下栽一个修改 http://devh.net
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; 人家写的 帮你转IE插件可以参考APPLEVB的文章
或者去我网站下栽一个修改
http://devh.net