在目前記錄由 FieldIndex 指定的欄位儲存至儲存格後發生
語法
TAfterCell =
procedure (Sender: TObject; Cell:
IXLSRange; RowIndex, FieldIndex: Integer; Field: TField) of object;
語法
TAfterCell =
procedure (Sender: TObject; Cell:
IXLSRange; RowIndex, FieldIndex: Integer; Field: TField) of object;
| Sender |
TObject. 指定 TDataToXLS 元件 triggered 事件 |
| Cell |
IXLSRange，代表正在匯出的儲存格 |
| RowIndex |
Integer，目前列的索引 |
| FieldIndex |
整數. 索引 的 field |
| Field |
TField，代表資料集欄位的物件 |
範例
This example sets the interior color for odd columns to silver
procedure TForm1.DataToXLS1AfterCell(Sender: TObject;
Cell: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);
begin
if Odd(FieldIndex + 1) then Cell.Interior.Color := ColorToRGB(clSilver);
end;