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 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 清除当前选中区的选中状态。

相关链接

如何
获取当前光标所在的字符属性

 

delphi execCommand的更多相关文章

  1. delphi WebBrowser控件上网页验证码图片识别教程(一)

    步骤一:获取网页中验证码图片的url地址 在delphi中加入一个BitBtn和一个memo以及WebBrowser控件实现网页中验证码图片的url地址的获取 程序如下:procedure TForm ...

  2. Delphi WebBrowser控件的使用(大全 good)

    Delphi WebBrowser控件的使用 WebBrowser控件属性:1.Application      如果该对象有效,则返回掌管WebBrowser控件的应用程序实现的自动化对象(IDis ...

  3. Delphi TWebBrowser

    Delphi WebBrowser控件的使用 WebBrowser控件属性:1.Application      如果该对象有效,则返回掌管WebBrowser控件的应用程序实现的自动化对象(IDis ...

  4. Delphi TWebBrowser编程简述(转帖)

    Delphi 3开始有了TWebBrowser构件,不过那时是以ActiveX控件的形式出现的,而且需要自己引入,在其后的4.0和5.0中,它就在封装好shdocvw.dll之后作为Internet构 ...

  5. 学习笔记:7z在delphi的应用

    最近做个发邮件的功能,需要将日志文件通过邮件发送回来用于分析,但是日志文件可能会超级大,测算下来一天可能会有800M的大小.所以压缩是不可避免了,delphi中的默认压缩算法整了半天不太好使,就看了看 ...

  6. delphi连接sql存储过程

    针对返回结果为参数的 一. 先建立自己的存储过程 ALTER PROCEDURE [dbo].[REName] ) AS BEGIN select ROW_NUMBER() over(order by ...

  7. delphi 2010与delphi XE破解版的冲突

    在系统中同时安装了Dephi 2010LITE版与Delphi XE lite后,总是会有一个有问题 是因为两者都是读取C:\ProgramData\Embarcadero目录下的license文件, ...

  8. [Delphi] Delphi版本号对照

    VER300    Delphi Seattle / C++Builder Seattle    23    230    (Delphi:Win32/Win64/OSX/iOS32/iOS64/An ...

  9. delphi tidhttp 超时设置无效的解决方法

    现在delphi都发布到xe8了,tidhttp还有缺陷,那就是超时设置在没有网络或者连不上服务器的时候是无效的,不管你设置为多少都要10-20秒.connectTimeout和readTimeout ...

随机推荐

  1. MySQL基础之第5章 操作数据库

    假设已经登录 mysql-h localhost -uroot -proot 5.1.显示.创建.删除数据库 show databases;     显示所有的数据库 create database ...

  2. spring aop expression简单说明

    <aop:config> <aop:pointcut id="userDAO" expression="execution(public * cn.da ...

  3. #define offsetof(TYPE, MEMBER) ((size_t) &((TYPE *)0)->MEMBER)

    #define offsetof(TYPE, MEMBER) ((size_t) &((TYPE *)0)->MEMBER)宏的运行机理:1. ( (TYPE *)0 ) 将零转型为TY ...

  4. 对delegate进行扩展 打造通用的"计时完成"方法 z

    让用户尽量少打字 每次让用户输入这么多信息的确很糟糕, 可以改进一下设计: 服务器IP和用户名可以存放在配置文件里面, 初始化的时候默认加载到相应的文本框中; 从安全角度考虑, 密码必须经过用户手动输 ...

  5. Stamps and Envelope Size

    题意: 容量为s的信封,给n组邮票的面值,求哪一组能组成的连续的面值的最大值最大,若有多组答案,输出面值数量最小的一组,若数量相等,输出最大面值最小的一组,若最大面值相等,输出第二大面值最小的一组,依 ...

  6. Selenium2Library系列 keywords 之 _SelectElementKeywords 之 page_should_contain_list(self, locator, message='', loglevel='INFO')

    def page_should_contain_list(self, locator, message='', loglevel='INFO'): """Verifies ...

  7. 关于duilib中的list的扩展探索

    原文地址:http://blog.csdn.net/tragicguy/article/details/21893065 今天在做一个程序的界面时,需要在一个列表中显示除文字以外的其他控件,如:Edi ...

  8. ASP.NET单点登录(代码)

    [p=25, null, left]由于某些原因,在我们的应用中会遇到一个用户只能在一个地方登录的情况,也就是我们通常所说的单点登录.在ASP.NET中实现单点登录其实很简单,下面就把主要的方法和全部 ...

  9. redo文件三

    switch logfile是一种昂贵的操作,在进行日志切换的时候,是不允许生成新的redo信息 在前台进程生成redo日志信息的时候,此时redo buffer已经分配了空间,并且在当前的redo日 ...

  10. 写给Python初学者的设计模式入门

    有没有想过设计模式到底是什么?通过本文可以看到设计模式为什么这么重要,通过几个Python的示例展示为什么需要设计模式,以及如何使用. 设计模式是什么? 设计模式是经过总结.优化的,对我们经常会碰到的 ...