HotXLS Docs
Home Contents Overview

AfterRow 事件

在由 RowIndex 指定的记录保存到工作表之后发生

说明

您可以使用此事件对明细区域中的整行应用条件格式

语法

TAfterRow = procedure (Sender: TObject; Range: IXLSRange; RowIndex: Integer) of object;
Sender TObject。指定触发该事件的 TDataToXLS 组件
Range IXLSRange。表示包含所导出行的区域
RowIndex Integer。所导出行的索引

示例

此示例将奇数行的内部颜色设置为水绿色 

procedure TForm1.DataToXLS1AfterRow(Sender: TObject;
  Range: IXLSRange; RowIndex: Integer);
begin
  if Odd(RowIndex) then Range.Interior.Color := ColorToRGB(clAqua);
end;