HotXLS 文件
首頁 目錄 概述

AfterTitle 事件

在 FieldIndex 指定的欄標題儲存至儲存格後發生

語法

TAfterTitle = procedure(Sender: TObject; Cell: IXLSRange; FieldIndex: Integer; Field: TField) of object;

語法

TAfterTitle = procedure(Sender: TObject; Cell: IXLSRange; FieldIndex: Integer; Field: TField) of object;
Sender TObject. 指定 TDataToXLS 元件 triggered 事件
Cell IXLSRange，代表欄標題所在的儲存格
FieldIndex 整數. 索引 的 field
Field TField，代表資料集欄位的物件

範例

This example sets the width of the column with index 2 

procedure TForm1.DataToXLS1AfterTitle(Sender: TObject;
  Cell: IXLSRange; FieldIndex: Integer; Field: TField);
begin
  if FieldIndex = 2 then Cell.ColumnWidth := 30;
end;
This example shows how to change the text of column title 

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