يحدث بعد حفظ عنوان العمود المحدد بواسطة ColumnIndex في الخلية
الوصف
يمكنك استخدام هذا الحدث لتطبيق التنسيق الشرطي على خلية الرأس (header cell)
البناء (Syntax)
TDBGridAfterTitle =
procedure(Sender: TObject; Cell:
IXLSRange; ColumnIndex: Integer; Column: TColumn) of object;
| Sender |
TObject يحدد مكون TGridToXLS الذي قام بتشغيل الحدث |
| Cell |
IXLSRange يمثل الخلية التي تحتوي على عنوان العمود |
| ColumnIndex |
Integer فهرس العمود |
| Column |
TColumn كائن يمثل العمود |
مثال
يحدد هذا المثال عرض العمود الذي يحتوي على الفهرس 3
procedure TForm1.GridToXLS1AfterTitle(Sender: TObject;
Cell: IXLSRange; ColumnIndex: Integer; Column: TColumn);
begin
if ColumnIndex = 3 then Cell.ColumnWidth := 30;
end;
يوضح هذا المثال كيفية تغيير نص عنوان العمود
procedure TForm1.GridToXLS1AfterTitle(Sender: TObject;
Cell: IXLSRange; ColumnIndex: Integer; Column: TColumn);
begin
Cell.Value := StringReplace(Cell.Value, '_', ' ', [rfReplaceAll]);
end;