delphi 插入表格HTML代碼

標籤：des   style   blog   http   color   os   strong   io   

 

<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)