Xảy ra sau khi trường được chỉ định bởi FieldIndex của bản ghi hiện tại được lưu vào ô
Mô tả
Bạn có thể dùng sự kiện này để áp dụng định dạng có điều kiện cho bất kỳ ô nào được xuất trong vùng chi tiết
Cú pháp
TAfterCell =
procedure (Sender: TObject; Cell:
IXLSRange; RowIndex, FieldIndex: Integer; Field: TField) of object;
| Sender |
TObject. Chỉ định thành phần TDataToXLS đã kích hoạt sự kiện |
| Cell |
IXLSRange. Đại diện cho ô được xuất |
| RowIndex |
Integer. Chỉ số của hàng hiện tại |
| FieldIndex |
Integer. Chỉ số của trường |
| Field |
TField. Một đối tượng đại diện cho trường của tập dữ liệu |
Ví dụ
Ví dụ này đặt màu nền cho các cột lẻ thành màu bạc
procedure TForm1.DataToXLS1AfterCell(Sender: TObject;
Cell: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);
begin
if Odd(FieldIndex + 1) then Cell.Interior.Color := ColorToRGB(clSilver);
end;