也可以不用DataSetTableProducer,自己将FDQuery1转成HTML文本 webbroker应用——在线成语词典,就是有点麻烦

拖一个DataSetTableProducer1到界面上,假设FDQuery1已正常连接

双击DataSetTableProducer1

 

 改变单元格背景色,uses HTTPProd;

procedure TWebModule1.DataSetTableProducer1FormatCell(Sender: TObject; CellRow,
  CellColumn: Integer; var BgColor: THTMLBgColor; var Align: THTMLAlign;
  var VAlign: THTMLVAlign; var CustomAttrs, CellData: string);
begin
   if CellRow = 0 then BgColor := 'Gray'
else if CellRow mod 2 = 0 then BgColor := 'Silver';
end;