在TWebbrowser 裡加入html文本

標籤：style   blog   http   color   ar   java   for   strong   sp   

在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;

在TWebbrowser 裡加入html文本