delphi 查找对话框

调用查找对话框

关键点

HTMLID_FIND = 1; //查找对话框

HTMLID_VIEWSOURCE= 2; //用记事本查看源代码

HTMLID_OPTIONS =3; //Internet选项

实现过程

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; nCmdId:Cardinal);overload;

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, nCmdId, 0, vaIn, vaOut) ;

finally

CmdTarget._Release;

end;

except

end;

Dispose(PtrGUID) ;

end;

图

备注