Terjadi setelah field yang ditentukan oleh FieldIndex dari rekaman saat ini disimpan ke dalam sel
Sintaks
Anda dapat menggunakan event ini untuk menerapkan pemformatan kondisional ke sel mana pun yang diekspor di area detail
Keterangan
TAfterCell =
procedure (Sender: TObject; Cell:
IXLSRange; RowIndex, FieldIndex: Integer; Field: TField) of object;
| Sender |
TObject. Menentukan komponen TDataToXLS yang memicu event |
| Cell |
IXLSRange. Mewakili sel yang diekspor |
| RowIndex |
Integer. Indeks baris saat ini |
| FieldIndex |
Integer. Indeks field |
| Field |
TField. Objek yang mewakili field dataset |
Contoh
Contoh ini menetapkan warna interior untuk kolom ganjil menjadi perak
procedure TForm1.DataToXLS1AfterCell(Sender: TObject;
Cell: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);
begin
if Odd(FieldIndex + 1) then Cell.Interior.Color := ColorToRGB(clSilver);
end;