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)