综合

img laoli

在TWebbrowser 里加入html文本

发表于2004/9/30 12:23:00  1369人阅读

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;
阅读全文
0 0

相关文章推荐

img
取 消
img