delphi ExecWB

时间：2014-08-01 19:36:12 阅读：732 评论：0 收藏：0 [点我收藏+]

TWebBrowser.ExecWB

关键点

procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT); overload;

实现过程

uses OleCtrls, ComObj,

Mshtml,ActiveX;

//文件

///新建 WebBrowser1.ExecWB(OLECMDID_NEW,1); //这个不正确空文档

///打开 WebBrowser1.ExecWB(OLECMDID_OPEN,1);

///保存 WebBrowser1.ExecWB(OLECMDID_SAVE,1);

///另存 WebBrowser1.ExecWB(OLECMDID_SAVEAS,1);

///-

///打印 WebBrowser1.ExecWB(OLECMDID_PRINT,1);

///打印预览 WebBrowser1.ExecWB(OLECMDID_PRINTPREVIEW,1);

///页面设置 WebBrowser1.ExecWB(OLECMDID_PAGESETUP,1);

///-

///属性 WebBrowser1.ExecWB(OLECMDID_PROPERTIES,1);

///编辑

///撤销 WebBrowser1.ExecWB(OLECMDID_REDO ,1);

///重做 WebBrowser1.ExecWB(OLECMDID_UNDO ,1);

///-

///复制 WebBrowser1.ExecWB(OLECMDID_COPY,1);

///剪切 WebBrowser1.ExecWB(OLECMDID_PASTE,1);

///粘贴 WebBrowser1.ExecWB(OLECMDID_CUT ,1);

///删除 WebBrowser1.ExecWB(OLECMDID_DELETE,1);

///-

///全选 WebBrowser1.ExecWB(OLECMDID_SELECTALL,1);

///不选 WebBrowser1.ExecWB(OLECMDID_CLEARSELECTION,1);

///查找/替换

///查找对话框 WebBrowser1.ExecWB(OLECMDID_FIND,1);

图

备注

	cmdID
1.	OLECMDID_OPEN	打开
2.	OLECMDID_NEW	新建
3.	OLECMDID_SAVE	保存
4.	OLECMDID_SAVEAS	另存
5.	OLECMDID_SAVECOPYAS	保存副本
6.
7.	OLECMDID_PRINT	打印
8.	OLECMDID_PRINTPREVIEW	打印预览
9.	OLECMDID_PAGESETUP	页面设置
10.	OLECMDID_SPELL
11.	OLECMDID_PROPERTIES	文档属性
12.
13.	OLECMDID_UNDO	撤销
14.	OLECMDID_REDO	重做
15.	OLECMDID_DELETE	删除
16.	OLECMDID_CUT	剪切
17.	OLECMDID_COPY	复制
18.	OLECMDID_PASTE	粘贴
19.	OLECMDID_PASTESPECIAL	特殊粘贴
20.
21.	OLECMDID_SELECTALL	全选
22.	OLECMDID_CLEARSELECTION	不选
23.
24.	OLECMDID_ZOOM
25.	OLECMDID_GETZOOMRANGE
26.	OLECMDID_UPDATECOMMANDS
27.	OLECMDID_REFRESH
28.	OLECMDID_STOP
29.	OLECMDID_HIDETOOLBARS
30.	OLECMDID_SETPROGRESSMAX
31.	OLECMDID_SETPROGRESSPOS
32.	OLECMDID_SETPROGRESSTEXT
33.	OLECMDID_SETTITLE
34.	OLECMDID_SETDOWNLOADSTATE
35.	OLECMDID_STOPDOWNLOAD
36.	OLECMDID_ONTOOLBARACTIVATED
37.	OLECMDID_FIND	查找对话框
38.
39.	OLECMDID_HTTPEQUIV
40.	OLECMDID_HTTPEQUIV_DONE
41.	OLECMDID_ENABLE_INTERACTION
42.	OLECMDID_ONUNLOAD
43.	OLECMDID_PROPERTYBAG
44.	OLECMDID_PREREFRESH
45.	OLECMDID_SHOWSCRIPTERROR
46.	OLECMDID_SHOWMESSAGE
47.	OLECMDID_SHOWFIND
48.	OLECMDID_SHOWPAGESETUP
49.	OLECMDID_SHOWPRINT
50.	OLECMDID_CLOSE
51.	OLECMDID_ALLOWUILESSSAVEAS
52.	OLECMDID_DONTDOWNLOADCSS
53.	OLECMDID_UPDATEPAGESTATUS
54.	OLECMDID_PRINT
55.	OLECMDID_PRINTPREVIEW
56.	OLECMDID_SETPRINTTEMPLATE
57.	OLECMDID_GETPRINTTEMPLATE
58.	OLECMDID_PAGEACTIONBLOCKED
59.	OLECMDID_PAGEACTIONUIQUERY
60.	OLECMDID_FOCUSVIEWCONTROLS
61.	OLECMDID_FOCUSVIEWCONTROLSQUERY
62.	OLECMDID_SHOWPAGEACTIONMENU
63.	OLECMDID_ADDTRAVELENTRY
64.	OLECMDID_UPDATETRAVELENTRY
65.	OLECMDID_UPDATEBACKFORWARDSTATE
66.	OLECMDID_OPTICAL_ZOOM
67.	OLECMDID_OPTICAL_GETZOOMRANGE
68.	OLECMDID_WINDOWSTATECHANGED
69.	OLECMDID_ACTIVEXINSTALLSCOPE
70.	OLECMDID_UPDATETRAVELENTRY_DATARECOVERY

cmdexecopt

const

OLECMDEXECOPT_DODEFAULT = $00000000;

OLECMDEXECOPT_PROMPTUSER = $00000001;

OLECMDEXECOPT_DONTPROMPTUSER = $00000002;

OLECMDEXECOPT_SHOWHELP = $00000003;