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

相关链接

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

来自为知笔记(Wiz)

delphi execCommand

时间： 2024-10-28 18:52:09

delphi execCommand的相关文章

delphi 11 编辑模式 浏览模式

编辑模式 浏览模式 设置焦点 //在使用前需要Webbrowser已经浏览过一个网页 否则错误 uses MSHTML; ///获取Webbrowser编辑模式里面的内容 procedure EditMode();begin  (Form1.WebBrowser1.Document as IHTMLDocument2).designMode := 'on';end;//----------------------------------------------------------------

delphi 01设置 字体属性

设置/获取 字体属性 名称 大小 粗体 斜体 下划线 删除线 颜色1 颜色2 uses MSHTML; //设置 //------------------------------------------------------------------------------procedure WB_SetFontName();begin  (Form1.webbrowser1.Document as IHTMLDocument2).execCommand('FontName', False, F

delphi 08 HTML组件

///HTML组件///后面的字符串为这个控件的ID号///直线          Line         (WebBrowser1.Document as IHTMLDocument2).execCommand('InsertHorizontalRule', True, '');///按钮          Button      (WebBrowser1.Document as IHTMLDocument2).execCommand('InsertButton', True, '');//

Delphi 获取网站验证码的图片

[delphi] view plain copy print? uses ActiveX,ComObj; procedure TfrmMain.FormCreate(Sender: TObject); begin OleInitialize(nil); end; procedure TfrmMain.DomImg2Image(wb:TWebBrowser); var i:Integer; rang:IHTMLControlRange; s:string; begin try //pic是图片的节

Delphi WebBrowser控件的使用（大全 good）

Delphi WebBrowser控件的使用 WebBrowser控件属性:1.Application      如果该对象有效,则返回掌管WebBrowser控件的应用程序实现的自动化对象(IDispatch).如果在宿主对象中自动化对象无效,程序将返回WebBrowser控件的自动化对象2.Parent       返回WebBrowser控件的父自动化对象,通常是一个容器,例如是宿主或IE窗口3.Containe       返回WebBrowser控件容器的自动化对象.通常该值与Pare

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

步骤一:获取网页中验证码图片的url地址 在delphi中加入一个BitBtn和一个memo以及WebBrowser控件实现网页中验证码图片的url地址的获取 程序如下:procedure TForm1.BitBtn1Click(Sender: TObject); var I:Integer; begin for I:=0 to WebBrowser1.OleObject.document.images.length-1 do Memo1.Lines.Add(WebBrowser1.OleObj

Delphi中Twebbrowser的document 对象的属性、方法、事件一览(转)

Delphi中Twebbrowser的document 对象的属性.方法.事件一览(转) 2012-12-07 10:19:39|  分类: Delphi 零碎 |  标签:webbrowser  属性  方法  事件  delphi   |举报 |字号大中小 订阅 {ihtmldocument2 方法:}write //写入writeln //写入并换行open //打开一个流,以收集 document.write 或 document.writeln 的输出close //关闭并输出用 do

Delphi常用系统函数总结

字符串处理函数 Unit System 函数原型 function Concat(s1 [, s2,..., sn]: string): string; 说明 与 S := S1 + S2 + S3 ...; 相同. 将字符串相加. 函数原型 function Copy(S: string; Index, Count: Integer): string;说明 S : 字符串. Indexd : 从第几位开始拷贝. Count : 总共要拷贝几位. 从母字符串拷贝至另一个字符串. 函数原型 pro

最新的Delphi版本号对照

The CompilerVersion constant identifies the internal version number of the Delphi compiler. It is defined in the System unit and may be referenced either in code just as any other constant: if CompilerVersion = 20 then sCompilerName := 'Delphi 2009';