Настъпва след запис на полето, зададено с FieldIndex на текущия запис, в клетката
Описание
property AfterCell: TXLSAfterCellEvent;
Синтаксис
TAfterCell =
procedure (Sender: TObject; Cell:
IXLSRange; RowIndex, FieldIndex: Integer; Field: TField) of object;
| Sender |
TObject. Указва компонента TDataToXLS, който е задействал събитието |
| Cell |
IXLSRange. Представлява клетката, която се експортира |
| RowIndex |
Integer. Индексът на текущия ред |
| FieldIndex |
Integer. Индексът на полето |
| Field |
TField. Обект, който представя полето на набора от данни |
Пример
Този пример задава сребрист цвят на вътрешността за нечетни колони
procedure TForm1.DataToXLS1AfterCell(Sender: TObject;
Cell: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);
begin
if Odd(FieldIndex + 1) then Cell.Interior.Color := ColorToRGB(clSilver);
end;