Xảy ra sau khi bản ghi được chỉ định bởi RowIndex được lưu vào Trang tính
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 toàn bộ hàng trong vùng chi tiết
Cú pháp
TAfterRow =
procedure (Sender: TObject; Range:
IXLSRange; RowIndex: Integer) of object;
| Sender |
TObject. Chỉ định thành phần TDataToXLS đã kích hoạt sự kiện |
| Range |
IXLSRange. Đại diện cho vùng chứa hàng đã xuất |
| RowIndex |
Integer. Chỉ số của hàng được xuất |
Ví dụ
Ví dụ này đặt màu nền cho các hàng lẻ thành màu lam nhạt
procedure TForm1.DataToXLS1AfterRow(Sender: TObject;
Range: IXLSRange; RowIndex: Integer);
begin
if Odd(RowIndex) then Range.Interior.Color := ColorToRGB(clAqua);
end;