語法
TAfterGroup =
procedure (Sender: TObject; GroupIndex: Integer; GroupRow:
IXLSRange; GroupCell:
IXLSRange) of object;
語法
TAfterGroup =
procedure (Sender: TObject; GroupIndex: Integer; GroupRow:
IXLSRange; GroupCell:
IXLSRange) of object;
| Sender |
TObject. 指定 TDataToXLS 元件 triggered 事件 |
| GroupIndex |
Integer，以 1 為起點的群組索引 |
| GroupRow |
IXLSRange，代表包含整個群組標題區的範圍 |
| GroupCell |
IXLSRange，代表包含群組值的儲存格 |
範例
This example applies additional formatting for the group title area
procedure TForm1.DataToXLS1AfterGroup(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;
3: Font.Size := 12;
else Font.Size := 10;
end;
end;
end;