delphi HTML代码
################################属性
设置################################################
字体设置{
//---------------------------------------------------------------------------------------
字体名称 <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代码的更多相关文章
- delphi 动态绑定代码都某个控件
delphi 动态绑定代码都某个控件 http://docwiki.embarcadero.com/CodeExamples/Berlin/en/Rtti.TRttiType_(Delphi)Butt ...
- DIOCP组件(Delphi IOCP)代码阅读之ADO内存表
DIOCP组件(Delphi IOCP)代码阅读之ADO内存表 代码中有 class procedure TADOTools.loadFromStream(pvDataSet: TCustomADOD ...
- Delphi 复习代码
1.取得可文件路径 Path := ExtractFilePath(Application.ExeName); //取得可执行文件路径 TXMLDocument.Create(ExtractFileP ...
- 奖学金评分系统（系统分析与设计版与Delphi实现代码）
一.系统规划 1.1 项目背景介绍 在奖学金评比过程中,学生综合测评是学校普遍采用的评比手段.对学生实施综合素质测评的目的在于正确评价学生的综合素质,为评奖学金提供依据,实现学生教育管理工作的标准化. ...
- delphi 修改代码补全的快捷键(由Ctrl+Space 改为 Ctrl + alt + Space)（通过修改OpenTool生效）
delphi 的IDE快捷键与输入法切换键中突,以往的解决方法是下载一个ImeTool修改 windows 系统的快捷键 在 xp win7 都好使,但在win 10经常是修改完后,重启又失效了. 本 ...
- delphi 修改代码补全的快捷键(由Ctrl+Space 改为 Ctrl + alt + Space)
delphi 的IDE快捷键与输入法切换键中突,以往的解决方法是下载一个ImeTool修改 windows 系统的快捷键 在 xp win7 都好使,但在win 10经常是修改完后,重启又失效了. 本 ...
- delphi中用代码实现注册Ocx和Dll（有点怪异，使用CallWindowProc来调用指定函数DllRegisterServer）
在windows系统中,可以通过Regsvr32来实现注册ocx或者dl, 编程时,调用Regsvr32来注册,却不能正常执行.尤其是在Win7系统中,需要管理员身份才能运行. 使用下面的代码则能正常 ...
- delphi 在代码中 添加 TO-DO 并且 管理
TO-DO List是一项非常好用的功能.采用她可以让我们很清楚的了解以前完成了那些任务,还有哪些任务需要做,由谁负责完成,是不是比较紧急的任务等.今天来不及完成的,明天上班就可以很快的找到任务所在的 ...
- 一个用UpdateLayeredWindow实现窗体半透明的delphi的代码
http://www.pudn.com/downloads171/sourcecode/windows/detail791686.html unit Unit1; interface uses ...
随机推荐
- andorid 文字颜色selector的使用
文字颜色selector的使用 创建名称为selector_1的Android项目,在res/color文件夹下创建名称为button_selector_text.xml的文字颜色配置文件,代码如下 ...
- POJ 2386 Lake Counting
Lake Counting Time Limit: 1000MS Memory Limit: 65536K Total Submissions: 28966 Accepted: 14505 D ...
- 【剑指offer 面试题23】从上往下打印二叉树
思路: 没啥好说的,BFS. C++: #include <iostream> #include <queue> using namespace std; struct Tre ...
- 【JSONCpp】简介及demo
一.JSON简介 JSON 一种轻量级的数据交换格式,易于阅读.编写.解析,全称为JavsScript ObjectNotation. JSON由两种基本结构组成 ① 名字/值 对的集合,可以理解 ...
- springmvc里面的中文乱码问题
如果是以get方法提交的表单,则可以在comcat服务器的server.xml文件里面设置 <Connector connectionTimeout="20000" port ...
- JavaScript相关图书推荐
JavaScript语言精粹(修订版) 作 者 Douglas Crockford(道格拉斯·克罗克福德) 著:赵泽欣 等 译 出 版 社 电子工业出版社 出版时间 2012-09-01 版 ...
- 《GettingThingsDone》--GTD学习笔记(二）-GTD实践指导
一.准备阶段的建议: 高级的工作管理方法就是学会一套系统并付诸实施,直到将这套系统和方法融入你的工作和生活中. 通过行动使自己感觉良好,要比通过使自己感觉良好而进入一种较佳的行动状态容易的多. 当你在 ...
- 快速开发 jQuery 插件的 10 大技巧（转）
转自:http://www.oschina.net/news/41776/jquery-10-tips 在开发过很多 jQuery 插件以后,我慢慢的摸索出了一套开发jQuery插件比较标准的结构和模 ...
- 20150913K-means聚类
1.聚类的思想: 将一个有N个对象的数据集,构造成k(k<=n)个划分,每个划分代表一个簇.使得每个簇包含一个对象,每个对象有且仅属于一个簇.对于给定的k,算法首先给出一个初始的划分方法,以后通 ...
- centos 安装git 服务端
// 在服务端安装好git后,开始安装gitosis 3.在服务器安装gitosis sudo yum install python python-setuptools cd /usr/local/s ...