Tritt auf, nachdem das durch FieldIndex angegebene Feld des aktuellen Datensatzes in die Zelle gespeichert wurde
Beschreibung
Sie können dieses Ereignis verwenden, um bedingte Formatierung auf jede exportierte Zelle im Detailbereich anzuwenden
Syntax
TAfterCell =
procedure (Sender: TObject; Cell:
IXLSRange; RowIndex, FieldIndex: Integer; Field: TField) of object;
| Sender |
TObject. Gibt TDataToXLS Komponente dass triggered Ereignis |
| Cell |
IXLSRange. Repräsentiert die exportierte Zelle |
| RowIndex |
Integer. Der Index der aktuellen Zeile |
| FieldIndex |
Integer. Der Index des Feldes |
| Field |
TField. Objekt dass stellt dar field von dataset |
Beispiel
Dieses Beispiel setzt die Innenfarbe für ungerade Spalten auf Silber
procedure TForm1.DataToXLS1AfterCell(Sender: TObject;
Cell: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);
begin
if Odd(FieldIndex + 1) then Cell.Interior.Color := ColorToRGB(clSilver);
end;