يحدث بعد حفظ الحقل المحدد بواسطة FieldIndex للسجل الحالي في الخلية
الوصف
يمكنك استخدام هذا الحدث لتطبيق تنسيق شرطي على أي خلية مُصدرة في منطقة التفاصيل
بناء الجملة
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;