HotXLS Docs
Home Contents Overview

AfterCell 事件

在当前记录中由 FieldIndex 指定的字段保存到单元格之后发生

说明

您可以使用此事件对明细区域中的任何导出单元格应用条件格式

语法

TAfterCell = procedure (Sender: TObject; Cell: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField) of object;
Sender TObject。指定触发该事件的 TDataToXLS 组件
Cell IXLSRange。表示所导出的单元格
RowIndex Integer。当前行的索引
FieldIndex Integer。字段的索引
Field TField。一个表示数据集字段的对象

示例

此示例将奇数列的内部颜色设置为银色 

procedure TForm1.DataToXLS1AfterCell(Sender: TObject;
  Cell: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);
begin
  if Odd(FieldIndex + 1) then Cell.Interior.Color := ColorToRGB(clSilver);
end;