เกิดขึ้นหลังจากที่คอลัมน์ที่ระบุโดย ColumnIndex ของแถวปัจจุบันถูกบันทึกลงในเซลล์
คำอธิบาย
คุณสามารถใช้เหตุการณ์นี้เพื่อใช้การจัดรูปแบบตามเงื่อนไขกับเซลล์ที่ส่งออกใดๆ ในพื้นที่รายละเอียด
ไวยากรณ์
TDBGridAfterCell =
procedure (Sender: TObject; Cell:
IXLSRange; RowIndex, ColumnIndex: Integer; Column: TColumn) of object;
| Sender |
TObject. ระบุ TGridToXLS component that triggered event |
| Cell |
IXLSRange. แทน เซลล์ which is exported |
| RowIndex |
Integer. ดัชนี ของ current แถว |
| ColumnIndex |
Integer. ดัชนี ของ คอลัมน์ |
| Column |
TColumn. object that represents คอลัมน์ |
ตัวอย่าง
ตัวอย่างนี้กำหนดสีภายในสำหรับคอลัมน์คี่เป็นสีเงิน
procedure TForm1.GridToXLS1AfterCell(Sender: TObject;
Cell: IXLSRange; RowIndex, ColumnIndex: Integer; Column: TColumn);
begin
if Odd(ColumnIndex + 1) then Cell.Interior.Color := ColorToRGB(clSilver);
end;