在 RowIndex 指定的記錄儲存至工作表後發生
語法
TAfterRow =
procedure (Sender: TObject; Range:
IXLSRange; RowIndex: Integer) of object;
語法
TAfterRow =
procedure (Sender: TObject; Range:
IXLSRange; RowIndex: Integer) of object;
| Sender |
TObject. 指定 TDataToXLS 元件 triggered 事件 |
| Range |
IXLSRange，代表包含匯出列的範圍 |
| RowIndex |
Integer，正在匯出之列的索引 |
範例
This example sets the interior color for odd rows to aqua
procedure TForm1.DataToXLS1AfterRow(Sender: TObject;
Range: IXLSRange; RowIndex: Integer);
begin
if Odd(RowIndex) then Range.Interior.Color := ColorToRGB(clAqua);
end;