delphi ExecWB

时间:2023-03-09 04:12:58
delphi ExecWB

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;

相关链接