delphi execCommand

WebBrowser1.Document as IHTMLDocument2

关键点

function execCommand(const cmdID: WideString; showUI: WordBool; value: OleVariant): WordBool; safecall;

实现过程

uses OleCtrls,ComObj,Mshtml,ActiveX;

///网页查看模式

(WebBrowser1.Document as IHTMLDocument2).designMode := 'on';

(WebBrowser1.Document as IHTMLDocument2).execCommand('EditMode',False,1);

///网页编辑模式

(WebBrowser1.Document as IHTMLDocument2).designMode := 'off';

(WebBrowser1.Document as IHTMLDocument2).execCommand('BrowseMode',False,1);

///选中文本编辑

///设置字体

//////名称 (WebBrowser1.Document as IHTMLDocument2).execCommand('FontName', False, '宋体');

//////大小 (WebBrowser1.Document as IHTMLDocument2).execCommand('FontSize', False, 7);///字体大小是从1到7

////样式

//////粗体 (WebBrowser1.Document as IHTMLDocument2).execCommand('Bold', False, 1);

//////斜体 (WebBrowser1.Document as IHTMLDocument2).execCommand('Italic', False, 1);

/////下划线 (WebBrowser1.Document as IHTMLDocument2).execCommand('Underline', False, 1);

/////删除线 (WebBrowser1.Document as IHTMLDocument2).execCommand('StrikeThrough', False, 1);

///超链接 (WebBrowser1.Document as IHTMLDocument2).execCommand('CreateLink', False, 1);

///删除超链接 (WebBrowser1.Document as IHTMLDocument2).execCommand('UnLink', False, 1);

///设置

///设置文字前景色 (WebBrowser1.Document as IHTMLDocument2).execCommand('ForeColor',False, 'Red');

///设置文字背景色 (WebBrowser1.Document as IHTMLDocument2).execCommand('BackColor',False, 'Blue');

///设置下标 (WebBrowser1.Document as Ihtmldocument2).execCommand('SubScript',False,1);

///设置上标 (WebBrowser1.Document as Ihtmldocument2).execCommand('SuperScript',False,1);

///设置对齐方式

///设置左对齐 (WebBrowser1.Document as IHTMLDocument2).execCommand('JustifyLeft', False, 0);

///设置中对齐 (WebBrowser1.Document as IHTMLDocument2).execCommand('JustifyCenter', False, 0);

///设置右对齐 (WebBrowser1.Document as IHTMLDocument2).execCommand('JustifyRight', False, 0);

///设置两端对齐 (WebBrowser1.Document as IHTMLDocument2).execCommand('JustifyFull', False, 0);

///缩进

/// 向右缩进 (WebBrowser1.Document as Ihtmldocument2).execCommand('Indent',True,1);

/// 向左缩进 (WebBrowser1.Document as Ihtmldocument2).execCommand('Outdent',True,1);

///清除格式 (WebBrowser1.Document as Ihtmldocument2).execCommand('Removeformat',True,0);

///序列查看

/// 数字格式 (WebBrowser1.Document as Ihtmldocument2).execCommand('InsertOrderedList',True,0);

/// 圆点查看 (WebBrowser1.Document as Ihtmldocument2).execCommand('InsertUnorderedList',True,0);

///插入图片（静态） (WebBrowser1.Document as IHTMLDocument2).execCommand('InsertImage', True, '');

(WebBrowser1.Document as IHTMLDocument2).execCommand('InsertImage', False, 'C:1.png');

///插入HTML组件

///后面的字符串为这个控件的ID号

///直线 Line (WebBrowser1.Document as IHTMLDocument2).execCommand('InsertHorizontalRule', True, '');

///按钮 Button (WebBrowser1.Document as IHTMLDocument2).execCommand('InsertButton', True, '');

///复选框 CheckBox (WebBrowser1.Document as IHTMLDocument2).execCommand('InsertInputCheckbox', True, '');

///单选框 Radio (WebBrowser1.Document as IHTMLDocument2).execCommand('InsertInputRadio', True, '');

///编辑框 Edit (WebBrowser1.Document as IHTMLDocument2).execCommand('InsertInputText', True, '');

///文本框 Memo (WebBrowser1.Document as IHTMLDocument2).execCommand('InsertTextArea', True, '');

///密码框 PswEdit (WebBrowser1.Document as IHTMLDocument2).execCommand('InsertInputPassword', True, '');

///组框架 GroupBox (WebBrowser1.Document as IHTMLDocument2).execCommand('InsertIFrame', True, '');

///列表框 ListBox (WebBrowser1.Document as IHTMLDocument2).execCommand('InsertSelectListbox', True, '');

///组合框 Combobox (WebBrowser1.Document as IHTMLDocument2).execCommand('InsertSelectDropdown', True, '');

图

备注

命令标识符指定了要在给定对象上执行的操作。请和下列方法一起使用命令标识符：

execCommand
queryCommandEnabled
queryCommandIndeterm
queryCommandState
queryCommandSupported
queryCommandValue

ID	command identifier
1	2D-Position	允许通过拖曳移动绝对定位的对象。
2	AbsolutePosition	设定元素的 position 属性为“absolute”(绝对)。
3	BackColor	设置或获取当前选中区的背景颜色。
4	BlockDirLTR	目前尚未支持。
5	BlockDirRTL	目前尚未支持。
6	Bold	切换当前选中区的粗体显示与否。
7	BrowseMode	目前尚未支持。
8	Copy	将当前选中区复制到剪贴板。
9	CreateBookmark	创建一个书签锚或获取当前选中区或插入点的书签锚的名称。
10	CreateLink	在当前选中区上插入超级链接，或显示一个对话框允许用户指定要为当前选中区插入的超级链接的 URL。
11	Cut	将当前选中区复制到剪贴板并删除之。
12	Delete	删除当前选中区。
13	DirLTR	目前尚未支持。
14	DirRTL	目前尚未支持。
15	EditMode	目前尚未支持。
16	FontName	设置或获取当前选中区的字体。
17	FontSize	设置或获取当前选中区的字体大小。
18	ForeColor	设置或获取当前选中区的前景(文本)颜色。
19	FormatBlock	设置当前块格式化标签。
20	Indent	增加选中文本的缩进。
21	InlineDirLTR	目前尚未支持。
22	InlineDirRTL	目前尚未支持。
23	InsertButton	用按钮控件覆盖当前选中区。
24	InsertFieldset	用方框覆盖当前选中区。
25	InsertHorizontalRule	用水平线覆盖当前选中区。
26	InsertIFrame	用内嵌框架覆盖当前选中区。
27	InsertImage	用图像覆盖当前选中区。
28	InsertInputButton	用按钮控件覆盖当前选中区。
29	InsertInputCheckbox	用复选框控件覆盖当前选中区。
30	InsertInputFileUpload	用文件上载控件覆盖当前选中区。
31	InsertInputHidden	插入隐藏控件覆盖当前选中区。
32	InsertInputImage	用图像控件覆盖当前选中区。
33	InsertInputPassword	用密码控件覆盖当前选中区。
34	InsertInputRadio	用单选钮控件覆盖当前选中区。
35	InsertInputReset	用重置控件覆盖当前选中区。
36	InsertInputSubmit	用提交控件覆盖当前选中区。
37	InsertInputText	用文本控件覆盖当前选中区。
38	InsertMarquee	用空字幕覆盖当前选中区。
39	InsertOrderedList	切换当前选中区是编号列表还是常规格式化块。
40	InsertParagraph	用换行覆盖当前选中区。
41	InsertSelectDropdown	用下拉框控件覆盖当前选中区。
42	InsertSelectListbox	用列表框控件覆盖当前选中区。
43	InsertTextArea	用多行文本输入控件覆盖当前选中区。
44	InsertUnorderedList	切换当前选中区是项目符号列表还是常规格式化块。
45	Italic	切换当前选中区斜体显示与否。
46	JustifyCenter	将当前选中区在所在格式化块置中。
47	JustifyFull	目前尚未支持。
48	JustifyLeft	将当前选中区所在格式化块左对齐。
49	JustifyNone	目前尚未支持。
50	JustifyRight	将当前选中区所在格式化块右对齐。
51	LiveResize	迫使 MSHTML 编辑器在缩放或移动过程中持续更新元素外观，而不是只在移动或缩放完成后更新。
52	MultipleSelection	允许当用户按住 Shift 或 Ctrl 键时一次选中多于一个站点可选元素。
53	Open	目前尚未支持。
54	Outdent	减少选中区所在格式化块的缩进。
55	OverWrite	切换文本状态的插入和覆盖。
56	Paste	用剪贴板内容覆盖当前选中区。
57	PlayImage	目前尚未支持。
58	Print	打开打印对话框以便用户可以打印当前页。
59	Redo	目前尚未支持。
60	Refresh	刷新当前文档。
61	RemoveFormat	从当前选中区中删除格式化标签。
62	RemoveParaFormat	目前尚未支持。
63	SaveAs	将当前 Web 页面保存为文件。
64	SelectAll	选中整个文档。
65	SizeToControl	目前尚未支持。
66	SizeToControlHeight	目前尚未支持。
67	SizeToControlWidth	目前尚未支持。
68	Stop	目前尚未支持。
69	StopImage	目前尚未支持。
70	StrikeThrough	目前尚未支持。
71	Subscript	目前尚未支持。
72	Superscript	目前尚未支持。
73	UnBookmark	从当前选中区中删除全部书签。
74	Underline	切换当前选中区的下划线显示与否。
75	Undo	目前尚未支持。
76	Unlink	从当前选中区中删除全部超级链接。
77	Unselect	清除当前选中区的选中状态。