HotXLS Docs
Home Contents Overview

AfterTitle 事件

在由 FieldIndex 指定的列标题保存到单元格之后发生

说明

您可以使用此事件对任何标题单元格应用条件格式

语法

TAfterTitle = procedure(Sender: TObject; Cell: IXLSRange; FieldIndex: Integer; Field: TField) of object;
Sender TObject。指定触发该事件的 TDataToXLS 组件
Cell IXLSRange，表示带有列标题的单元格
FieldIndex Integer。字段的索引
Field TField。一个表示数据集字段的对象

示例

此示例设置索引为 2 的列的宽度 

procedure TForm1.DataToXLS1AfterTitle(Sender: TObject;
  Cell: IXLSRange; FieldIndex: Integer; Field: TField);
begin
  if FieldIndex = 2 then Cell.ColumnWidth := 30;
end;
此示例显示如何更改列标题的文本 

procedure TForm1.DataToXLS1AfterTitle(Sender: TObject;
  Cell: IXLSRange; FieldIndex: Integer; Field: TField);
begin
  Cell.Value := StringReplace(Cell.Value, '_', ' ', [rfReplaceAll]);
end;