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,
''); |
图
备注
命令标识符指定了要在给定对象上执行的操作。请和下列方法一起使用命令标识符：
| 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 | 打开打印对话框以便用户可以打印当前页。 | |
| 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 | 清除当前选中区的选中状态。 |
相关链接
如何 获取当前光标所在的字符属性
