Se declanșează după ce câmpul specificat de FieldIndex al înregistrării curente este salvat în celulă
Descriere
type TDataToXLSAfterCellEvent = procedure(Sender: TObject; FieldIndex: Integer; Cell: IXLSRange) of object;
Sintaxă
TAfterCell =
procedure (Sender: TObject; Cell:
IXLSRange; RowIndex, FieldIndex: Integer; Field: TField) of object;
| Sender |
TObject. Specifică componenta TDataToXLS care a declanșat evenimentul |
| Cell |
IXLSRange. Reprezintă celula care este exportată |
| RowIndex |
Integer. Indexul rândului curent |
| FieldIndex |
Integer. Indexul câmpului |
| Field |
TField. Un obiect care reprezintă câmpul setului de date |
Exemplu
Acest exemplu setează culoarea interiorului pentru coloanele impare la 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;