| Sender | TObject. 指定します TDataToXLS コンポーネント triggered イベント |
| Range | エクスポートされる行を含む範囲を表す IXLSRange |
| RowIndex | エクスポートされる行のインデックス |
procedure TForm1.DataToXLS1AfterRow(Sender: TObject; Range: IXLSRange; RowIndex: Integer); begin if Odd(RowIndex) then Range.Interior.Color := ColorToRGB(clAqua); end;