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 删除cookies文件

Delphi中使用临界区来让线程同步

Delphi enumwindows 获取窗体句柄 进程id 窗体信息

Delphi xe7中的运行时设置android应用程序屏幕方向

Delphi datasnap 2009的简单使用

Delphi colorbox不需要系统那么多颜色，只想自定义显示其中几个，怎么做？

Delphi ide 默认保存路径设置

Delphi datasanp的控制老大-dsserver

Delphi mscomm1自动获取串口

Delphi 字符串插入与删除

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

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