เกิดขึ้นหลังจากบันทึกระเบียนที่ระบุโดย RowIndex ลงในแผ่นงาน
ไวยากรณ์
ตัวอย่างนี้ตั้งค่าสีพื้นหลังสำหรับแต่ละแถวที่ส่งออก
ตัวอย่าง
TAfterRow =
procedure (Sender: TObject; Range:
IXLSRange; RowIndex: Integer) of object;
| Sender |
TObject. ระบุ TDataToXLS component that triggered event |
| Range |
IXLSRange. แทน ช่วง which contains exported แถว |
| RowIndex |
Integer. ดัชนี ของ แถว which is exported |
ตัวอย่าง
This example sets the interior color for odd rows to aqua
procedure TForm1.DataToXLS1AfterRow(Sender: TObject;
Range: IXLSRange; RowIndex: Integer);
begin
if Odd(RowIndex) then Range.Interior.Color := ColorToRGB(clAqua);
end;