|
|
在TWebbrowser 里加入html文本 |
|
|
作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站 |
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;

|
|
相关文章:相关软件: |
|