首页 > 代码库 > delphi 插入表格HTML代码
delphi 插入表格HTML代码
<table width="174" height="76" border="1" align="center" cellpadding="1" cellspacing="1" bordercolor="#000000" bgcolor="#FFFFFF" summary="Text">
table的属性
width
height
border
align
cellpadding 填充
cellspacing 间距
bordercolor
bgcolor
summary 摘要
的事件
的方法
表格行数/表格列数
procedure InsertHTML(const html: WideString);
begin
( (Form1.WebBrowser1.Document as IHTMLDocument2).selection.createRange as IHtmlTxtRange).pasteHTML(‘<P><B>‘+html+‘</B></P>‘);
end;
//------------------------------------------------------------------------------
//网格特效就用PasteHTML现
procedure InsertTable(const Col: Integer = 2; const Row: Integer = 2);
var
ColCnt, RowCnt: Integer;
sTable: string;
begin
//sTable是表格的Html代码
//sTable := ‘<TABLE border=1 width="100%" style="border-collapse: collapse;border-color: black" >‘;
sTable := ‘<TABLE border=1 width="100%">‘;//无样式
for RowCnt := 1 to Row do
begin
sTable := sTable + ‘<TR>‘;
for ColCnt := 1 to Col do
sTable := sTable + ‘<TD> </TD>‘;
sTable := sTable + ‘</TR>‘;
end;
sTable := sTable + ‘</TABLE>‘;
//插入Html表格
InsertHTML(sTable);
end;
来自为知笔记(Wiz)
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。