本文整理自网络,侵删。
//获得WebBrowser1里的文本相当于 Caption = Webbrowser1.Text//获得当前选中的文本 Webrowser.Selection.Text//获得当前选中的文本 Webrowser.Selection.HTML//设置选中的文本Webrowser.Selection.Text="ABC";function GetSelText():string;var Doc: IHtmlDocument2;begin Result:=( (Form1.WebBrowser1.Document as IHTMLDocument2).selection.createRange as IHtmlTxtRange).text;end;
procedure SetSelText(s:string);var Doc: IHtmlDocument2;begin ( (Form1.WebBrowser1.Document as IHTMLDocument2).selection.createRange as IHtmlTxtRange).text:=s;end;
function GetSelHtmlText():string;var Doc: IHtmlDocument2;begin Result:=( (Form1.WebBrowser1.Document as IHTMLDocument2).selection.createRange as IHtmlTxtRange).htmlText;end;
procedure SetSelHtmlText(s:string);var Doc: IHtmlDocument2;begin ( (Form1.WebBrowser1.Document as IHTMLDocument2).selection.createRange as IHtmlTxtRange).pasteHTML(s);end;
相关阅读 >>
Delphi yesterday、today、tomorrow - 昨天、今天、明天
Delphi 如何使用findfirst搜索不同的文件类型?
更多相关阅读请进入《Delphi》频道 >>