Xảy ra sau khi tiêu đề
nhóm được chỉ định bởi Index được xuất
Mô tả
Bạn có thể dùng sự kiện này để áp dụng định dạng bổ sung cho vùng tiêu đề nhóm
Cú pháp
TDBGridAfterGroup =
procedure (Sender: TObject; GroupIndex: Integer; GroupRow:
IXLSRange; GroupCell:
IXLSRange) of object;
| Sender |
TObject. Chỉ định thành phần TGridToXLS đã kích hoạt sự kiện |
| GroupIndex |
Integer. Chỉ số bắt đầu từ 1 của nhóm |
| GroupRow |
IXLSRange. Đại diện cho vùng chứa toàn bộ khu vực tiêu đề nhóm |
| GroupCell |
IXLSRange. Đại diện cho một ô chứa giá trị nhóm |
Ví dụ
Ví dụ này áp dụng định dạng bổ sung cho vùng tiêu đề nhóm
procedure TForm1.GridToXLS1AfterGroup(Sender: TObject;
GroupIndex: Integer; GroupRow: IXLSRange; GroupCell: IXLSRange);
begin
GroupRow.Merge;
With GroupRow do begin
case GroupIndex of
1: Font.Size := 16;
2: Font.Size := 14;
else Font.Size := 12;
end;
end;
end;