Delphi WebBrowser 查找对话框

本文整理自网络，侵删。

 
{$R *.dfm}

uses ActiveX;
const
  CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
//  HTMLID_FIND = 1;      //查找对话框
//  HTMLID_VIEWSOURCE= 2; //查看源代码
//  HTMLID_OPTIONS =3;    //Internet选项
procedure WB_FindDialog(WebBrowser: TWebbrowser);

var
  CmdTarget : IOleCommandTarget;
  vaIn, vaOut: OleVariant;
  PtrGUID: PGUID;
begin
  New(PtrGUID) ;
  PtrGUID^ := CGID_WebBrowser;
  if WebBrowser.Document <> nil then
    try
      WebBrowser.Document.QueryInterface(IOleCommandTarget, CmdTarget) ;
      if CmdTarget <> nil then
        try
          CmdTarget.Exec(PtrGUID, 1, 0, vaIn, vaOut) ;
        finally
          CmdTarget._Release;
        end;
    except
    end;
  Dispose(PtrGUID) ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WB_FindDialog(WebBrowser1);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.1231818.com/');
end;

 

相关阅读 >>

Delphi twebbrowser 设置焦点

vclzip控件显示压缩进度

Delphi 怎么计算一个memo中输入的汉字数目

Delphi sysutils.isdelimiter - 判断字符串的某个位置是不是指定的字符串

Delphi格式化wmi中的datetime

Delphi 防止程序重复打开运行

Delphi xe firemonkey的stylebook皮肤控件的使用

Delphi fmx app 设置 程序图标，闪屏,程序名

Delphi中json回车换行符转义

Delphi 编写键盘记录器

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

转载请注明出处：木庄网络博客 » Delphi WebBrowser 查找对话框