Trad op nadat het veld dat via FieldIndex is opgegeven van de huidige record in de cel is weggeschreven
Beschrijving
Je kunt deze gebeurtenis gebruiken om voorwaardelijke opmaak toe te passen op elke geëxporteerde cel in het detailgebied
Syntaxis
TAfterCell =
procedure (Sender: TObject; Cell:
IXLSRange; RowIndex, FieldIndex: Integer; Field: TField) of object;
| Sender |
TObject. Specificeert de TDataToXLS-component die het event heeft geactiveerd |
| Cell |
IXLSRange. Vertegenwoordigt de cel die wordt geëxporteerd |
| RowIndex |
Integer. De index van de huidige rij |
| FieldIndex |
Integer. De index van het veld |
| Field |
TField. Een object dat het veld van de dataset vertegenwoordigt |
Voorbeeld
Dit voorbeeld stelt de opvulkleur van oneven kolommen in op zilver
procedure TForm1.DataToXLS1AfterCell(Sender: TObject;
Cell: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);
begin
if Odd(FieldIndex + 1) then Cell.Interior.Color := ColorToRGB(clSilver);
end;