################################属性
设置################################################

字体设置{
//---------------------------------------------------------------------------------------
字体名称  <FONT
face=微软雅黑>This A Text</FONT>
字体大小  <FONT
size=1><SPAN style="FONT-SIZE: 100pt"><P>This A
Text</P></SPAN></FONT>
//---------------------------------------------------------------------------------------
粗体      <STRONG>This
A Text</STRONG>
斜体      <EM>This A
Text</EM>
下划线    <U>This A
Text</U>
删除线    <S>This A
Text</S>  
//---------------------------------------------------------------------------------------
字体颜色   <FONT
color=#ff0000>This A Text</FONT>
字体背景色 <FONT
style="BACKGROUND-COLOR: #0000ff">This A
Text</FONT>  
//---------------------------------------------------------------------------------------
}

//--------------------------------------------------------------------------------------- 
字体样式{
HTML 代码  - 样式   设置
PasteHTML
//如何获取

普通             <p>This
Is a
Text</p>
已编排格式       <pre>This
Is a
Text</pre>
地址             <address>This
Is a
Text</address>
标题1            <h1>This
Is a
Text</h1>
标题2            <h2>This
Is a
Text</h2>
标题3            <h3>This
Is a
Text</h3>
标题4            <h4>This
Is a
Text</h4>
标题5            <h5>This
Is a
Text</h5>
标题6            <h6>This
Is a
Text</h6>
带编号的列表     <ol><li><p>This
Is a Text</p></li></ol>
带项目符号的列表
<ul><li><p>This Is a
Text</p></li></ul>
目录列表         <dir><li><p>This
Is a
Text</p></li></dir>
菜单列表         <menu><li><p>This
Is a
Text</p></li></menu>
定义条目         <dl><dt><h2>This
Is a
Text</h2></dt></dl>
定义             <dl><dd><h2>This
Is a
Text</h2></dd></dl>
段落             <dl><dd><p>This
Is a Text</p></dd></dl>
}
//--------------------------------------------------------------------------------------- 

//--------------------------------------------------------------------------------------- 
对齐方式{
左    <P align=left>This Is A
Text</P>
中    <P align=center>This Is A
Text</P>
右    <P align=right>This Is A
Text</P>
两端  <p align="justify">This Is A
Text</p>
}
//---------------------------------------------------------------------------------------

//--------------------------------------------------------------------------------------- 
序列{  
数字序列    <OL><LI> This
Is A
Text</LI></OL>
原点序列    <UL><LI> This
Is A Text</LI></UL>
}
//--------------------------------------------------------------------------------------- 

//--------------------------------------------------------------------------------------- 
缩进{
向右前进
向左前进
//--------------------------------------------------------------------------------------- 
//向右缩进2次
  <BLOCKQUOTE
style="MARGIN-RIGHT: 0px" dir=ltr>
  <BLOCKQUOTE
style="MARGIN-RIGHT: 0px" dir=ltr>
    <P
style="MARGIN-RIGHT: 0px" dir=ltr>This Is A
Text</P></BLOCKQUOTE></BLOCKQUOTE>
//文字已经到最左边了    
    <P
style="MARGIN-RIGHT: 0px" dir=ltr>This Is A
Text</P>

//---------------------------------------------------------------------------------------     

设置TAB大小
  This Is A Text    //注 有几个  
就表示TAB是几现在表示tab为2格
}

//--------------------------------------------------------------------------------------- 
上标/下标{
上标     <sup>aaaaaaaaa</sup>
下标    <sub>aaaaaaaaa</sub>
正常    清除样式 
}
//--------------------------------------------------------------------------------------- 

WEB{
WEB背景色         <BODY
bgColor=#000080>
WEB背景图片     <BODY
background=C:\1.jpg >

}
//--------------------------------------------------------------------------------------- 

插入图片{
<IMG border=0 hspace=0 alt="" align=baseline
src="C:\1.jpg">    

}
//--------------------------------------------------------------------------------------- 

插入超链接{
插入
删除
//title是提示信息
//HTTPS https://
<a
href="https://www.baidu.com" title="提示信息">Hello</a>
//FILE
file://
<a href="file://C:/1.avi" title="提示信息">Hello</a>
//FTP
ftp:///
<a href="ftp:///C:/1.avi"
title="提示信息">Hello</a>
//HTTP  http:///
<a
href="http:///C:/1.avi" title="提示信息">Hello</a>
//邮件
收件人  mailto:  MainTO OutLook Express
<a
href="mailto:123@1234.com" title="提示信息">Hello</a>
//新闻
news:/
<a href="news:/C:/1.avi"
title="提示信息">Hello</a>
//Telnet  telnet:/
<a
href="telnet:/C:/1.avi" title="提示信息">Hello</a>
//其他 /
<a
href="/C:/1.avi" title="Hint ">Hello</a>
}
//--------------------------------------------------------------------------------------- 

插入书签{

}
//--------------------------------------------------------------------------------------- 

插入多媒体{
media
real
flash
}

//--------------------------------------------------------------------------------------- 

插入表格{

}
//--------------------------------------------------------------------------------------- 

//--------------------------------------------------------------------------------------- 
HTML组件的插入{

}

//--------------------------------------------------------------------------------------- 
//新建1个空的文档

//--------------------------------------------------------------------------------------- 
文件{
新建文档
保存文档
另存文档
打开文档
打印
打印预览
页面设置
查看文档源文件
写入源文件
}

编辑{
撤销
重做
复制
粘贴
删除
全选
剪切
查找
替换
}
//--------------------------------------------------------------------------------------- 
状态{
文档标题
文档是否被修改
文档大小
选中的文本
设置选中的文本

}
//--------------------------------------------------------------------------------------- 

################################属性
获得################################################

//--------------------------------------------------------------------------------------- 
//--------------------------------------------------------------------------------------- 
使用方法
1 获得当前选中文本的位置
2
使用粘贴HTML代码的方式实现功能
3
完成命令后再次选中原来选中的文本

//--------------------------------------------------------------------------------------- 
//获得当前选中的文本
function
GetSelText():string;
begin
  Result:=( (Form1.WebBrowser1.Document as
IHTMLDocument2).selection.createRange as IHtmlTxtRange).text;
end;
//--------------------------------------------------------------------------------------- 
//粘贴HTML代码
procedure
SetSelHtmlText(s:string);
begin
  ( (Form1.WebBrowser1.Document
as IHTMLDocument2).selection.createRange as
IHtmlTxtRange).pasteHTML(s);
end;
//--------------------------------------------------------------------------------------- 
//设置文本被选中 
procedure
SetSelection(Start,Length:integer);
var
  TextRange:IHtmlTxtRange;
  Doc:
IHtmlDocument2;
begin
  (Form1.WebBrowser1.Document as
IHTMLDocument2).selection.empty;
  TextRange:=(Form1.WebBrowser1.Document as
IHTMLDocument2).selection.createRange as
IHtmlTxtRange;
  TextRange.collapse(true);
  TextRange.moveEnd('character',Start+Length);
  TextRange.moveStart('character',Start);
  TextRange.select;
end;
//--------------------------------------------------------------------------------------- 
//获得文本被选中位置

//--------------------------------------------------------------------------------------- 
//设置HTML为正常
这个用获得属性来实现

//---------------------------------------------------------------------------------------

delphi HTML代码的更多相关文章

  1. delphi 动态绑定代码都某个控件

    delphi 动态绑定代码都某个控件 http://docwiki.embarcadero.com/CodeExamples/Berlin/en/Rtti.TRttiType_(Delphi)Butt ...

  2. DIOCP组件(Delphi IOCP)代码阅读之ADO内存表

    DIOCP组件(Delphi IOCP)代码阅读之ADO内存表 代码中有 class procedure TADOTools.loadFromStream(pvDataSet: TCustomADOD ...

  3. Delphi 复习代码

    1.取得可文件路径 Path := ExtractFilePath(Application.ExeName); //取得可执行文件路径 TXMLDocument.Create(ExtractFileP ...

  4. 奖学金评分系统（系统分析与设计版与Delphi实现代码）

    一.系统规划 1.1 项目背景介绍 在奖学金评比过程中,学生综合测评是学校普遍采用的评比手段.对学生实施综合素质测评的目的在于正确评价学生的综合素质,为评奖学金提供依据,实现学生教育管理工作的标准化. ...

  5. delphi 修改代码补全的快捷键(由Ctrl+Space 改为 Ctrl + alt + Space)（通过修改OpenTool生效）

    delphi 的IDE快捷键与输入法切换键中突,以往的解决方法是下载一个ImeTool修改 windows 系统的快捷键 在 xp win7 都好使,但在win 10经常是修改完后,重启又失效了. 本 ...

  6. delphi 修改代码补全的快捷键(由Ctrl+Space 改为 Ctrl + alt + Space)

    delphi 的IDE快捷键与输入法切换键中突,以往的解决方法是下载一个ImeTool修改 windows 系统的快捷键 在 xp win7 都好使,但在win 10经常是修改完后,重启又失效了. 本 ...

  7. delphi中用代码实现注册Ocx和Dll（有点怪异，使用CallWindowProc来调用指定函数DllRegisterServer）

    在windows系统中,可以通过Regsvr32来实现注册ocx或者dl, 编程时,调用Regsvr32来注册,却不能正常执行.尤其是在Win7系统中,需要管理员身份才能运行. 使用下面的代码则能正常 ...

  8. delphi 在代码中 添加 TO-DO 并且 管理

    TO-DO List是一项非常好用的功能.采用她可以让我们很清楚的了解以前完成了那些任务,还有哪些任务需要做,由谁负责完成,是不是比较紧急的任务等.今天来不及完成的,明天上班就可以很快的找到任务所在的 ...

  9. 一个用UpdateLayeredWindow实现窗体半透明的delphi的代码

    http://www.pudn.com/downloads171/sourcecode/windows/detail791686.html unit Unit1; interface  uses   ...

随机推荐

  1. Delphi 为什么它提示PCHAR是不安全的类型呢 Unsafe type 'PChar'

    DELPHI7已经考虑到了移植到点NET的问题,在点NET里,指针是不安全的.至于为什么有的人遇到,有的人没有遇到,那是因为各人的编译选项不同.在Project菜单下选Options“Compiler ...

  2. Ejabberd源码解析前奏--管理

    一.ejabberdctl 使用ejabberdctl命令行管理脚本,你可以执行ejabberdctl命令和一些普通的ejabberd命令(后面会详细解说).这意味着你可以在一个本地或远程ejabbe ...

  3. [HTML Q&A][转]使pre的内容自动换行

    <pre> 元素可定义预格式化的文本.被包围在 pre 元素中的文本通常会保留空格和换行符.而文本也会呈现为等宽字体. <pre> 标签的一个常见应用就是用来表示计算机的源代码 ...

  4. [Everyday Mathematics]20150210

    设正方体 $ABCD-A_1B_1C_1D_1$ 的棱长为 $1$, $E$ 为 $AB$ 的中点, $P$ 为体对角线 $BD_1$ 上一点, 当 $\angle CPE$ 最大时, 求三菱锥 $P ...

  5. [Everyday Mathematics]20150118

    设 $X$ 是线性空间, $\phi_1,\cdots,\phi_n,\phi$ 是 $X$ 上的线性泛函, 试证: $$\bex \phi\in \span\sed{\phi_1,\cdots,\p ...

  6. ubuntu安装nginx+php

    1.安装nginx aptitude search nginx sudo apt-get install nginx 2.安装php sudo apt-get install php5 sudo ap ...

  7. MVC中CheckBox

    一.单个Checkbox 1.View文件 <%= Html.CheckBoxFor(model => model.IsNeverExpired)%> 2.生成的HTML为 < ...

  8. 怎么用PHP在HTML中生成PDF文件

    原文:Generate PDF from html using PHP 译文:使用PHP在html中生成PDF 译者:dwqs 利用PHP编码生成PDF文件是一个非常耗时的工作.在早期,开发者使用PH ...

  9. 机器学习中的数学(5)-强大的矩阵奇异值分解(SVD)及其应用

    版权声明: 本文由LeftNotEasy发布于http://leftnoteasy.cnblogs.com, 本文可以被全部的转载或者部分使用,但请注明出处,如果有问题,请联系wheeleast@gm ...

  10. DWZ使用笔记

    DWZ使用笔记 一.前言     在最近的一个项目中,引入了DWZ这个富客户端框架,算是一次尝试吧.期间也遇到不少问题,总算一一解决了.特以此文记之.     本人用的是dwz-ria-1.4.5+A ...