| Sender | TObject. 指定 TGridToXLS 元件 triggered 事件 |
| Range | IXLSRange,代表包含匯出列的範圍 |
| RowIndex | Integer,正在匯出之列的索引 |
procedure TForm1.GridToXLS1AfterRow(Sender: TObject; Range: IXLSRange; RowIndex: Integer); begin if Odd(RowIndex) then Range.Interior.Color := ColorToRGB(clAqua); end;