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 | 打开打印对话框以便用户可以打印当前页。 | |
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 | 清除当前选中区的选中状态。 |
相关链接
如何
获取当前光标所在的字符属性
delphi execCommand的更多相关文章
- delphi WebBrowser控件上网页验证码图片识别教程(一)
步骤一:获取网页中验证码图片的url地址 在delphi中加入一个BitBtn和一个memo以及WebBrowser控件实现网页中验证码图片的url地址的获取 程序如下:procedure TForm ...
- Delphi WebBrowser控件的使用(大全 good)
Delphi WebBrowser控件的使用 WebBrowser控件属性:1.Application 如果该对象有效,则返回掌管WebBrowser控件的应用程序实现的自动化对象(IDis ...
- Delphi TWebBrowser
Delphi WebBrowser控件的使用 WebBrowser控件属性:1.Application 如果该对象有效,则返回掌管WebBrowser控件的应用程序实现的自动化对象(IDis ...
- Delphi TWebBrowser编程简述(转帖)
Delphi 3开始有了TWebBrowser构件,不过那时是以ActiveX控件的形式出现的,而且需要自己引入,在其后的4.0和5.0中,它就在封装好shdocvw.dll之后作为Internet构 ...
- 学习笔记:7z在delphi的应用
最近做个发邮件的功能,需要将日志文件通过邮件发送回来用于分析,但是日志文件可能会超级大,测算下来一天可能会有800M的大小.所以压缩是不可避免了,delphi中的默认压缩算法整了半天不太好使,就看了看 ...
- delphi连接sql存储过程
针对返回结果为参数的 一. 先建立自己的存储过程 ALTER PROCEDURE [dbo].[REName] ) AS BEGIN select ROW_NUMBER() over(order by ...
- delphi 2010与delphi XE破解版的冲突
在系统中同时安装了Dephi 2010LITE版与Delphi XE lite后,总是会有一个有问题 是因为两者都是读取C:\ProgramData\Embarcadero目录下的license文件, ...
- [Delphi] Delphi版本号对照
VER300 Delphi Seattle / C++Builder Seattle 23 230 (Delphi:Win32/Win64/OSX/iOS32/iOS64/An ...
- delphi tidhttp 超时设置无效的解决方法
现在delphi都发布到xe8了,tidhttp还有缺陷,那就是超时设置在没有网络或者连不上服务器的时候是无效的,不管你设置为多少都要10-20秒.connectTimeout和readTimeout ...
随机推荐
- MySQL基础之第5章 操作数据库
假设已经登录 mysql-h localhost -uroot -proot 5.1.显示.创建.删除数据库 show databases; 显示所有的数据库 create database ...
- spring aop expression简单说明
<aop:config> <aop:pointcut id="userDAO" expression="execution(public * cn.da ...
- #define offsetof(TYPE, MEMBER) ((size_t) &((TYPE *)0)->MEMBER)
#define offsetof(TYPE, MEMBER) ((size_t) &((TYPE *)0)->MEMBER)宏的运行机理:1. ( (TYPE *)0 ) 将零转型为TY ...
- 对delegate进行扩展 打造通用的"计时完成"方法 z
让用户尽量少打字 每次让用户输入这么多信息的确很糟糕, 可以改进一下设计: 服务器IP和用户名可以存放在配置文件里面, 初始化的时候默认加载到相应的文本框中; 从安全角度考虑, 密码必须经过用户手动输 ...
- Stamps and Envelope Size
题意: 容量为s的信封,给n组邮票的面值,求哪一组能组成的连续的面值的最大值最大,若有多组答案,输出面值数量最小的一组,若数量相等,输出最大面值最小的一组,若最大面值相等,输出第二大面值最小的一组,依 ...
- Selenium2Library系列 keywords 之 _SelectElementKeywords 之 page_should_contain_list(self, locator, message='', loglevel='INFO')
def page_should_contain_list(self, locator, message='', loglevel='INFO'): """Verifies ...
- 关于duilib中的list的扩展探索
原文地址:http://blog.csdn.net/tragicguy/article/details/21893065 今天在做一个程序的界面时,需要在一个列表中显示除文字以外的其他控件,如:Edi ...
- ASP.NET单点登录(代码)
[p=25, null, left]由于某些原因,在我们的应用中会遇到一个用户只能在一个地方登录的情况,也就是我们通常所说的单点登录.在ASP.NET中实现单点登录其实很简单,下面就把主要的方法和全部 ...
- redo文件三
switch logfile是一种昂贵的操作,在进行日志切换的时候,是不允许生成新的redo信息 在前台进程生成redo日志信息的时候,此时redo buffer已经分配了空间,并且在当前的redo日 ...
- 写给Python初学者的设计模式入门
有没有想过设计模式到底是什么?通过本文可以看到设计模式为什么这么重要,通过几个Python的示例展示为什么需要设计模式,以及如何使用. 设计模式是什么? 设计模式是经过总结.优化的,对我们经常会碰到的 ...