Delphi WebBrowser选中文本操作 设置Webbrowser的内容

本文整理自网络，侵删。

 
//获得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 tdbgrideh导出excel

Delphi中安装和使用kol和mck

Delphi-idhttp-json用法

Delphi里如何限制form的大小

Delphi 全局钩子锁定键盘

Delphi 禁止用户关闭操作系统

Delphi stringgrid常用属性和常用操作

Delphi xe8 无法进入android的调试状态

Delphi 调用exitwindows 关闭系统

Delphi 启动程序隐藏主窗体

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi WebBrowser选中文本操作 设置Webbrowser的内容