HotXLS ドキュメント
ホーム 目次 概要

AfterTitle イベント

FieldIndex で指定された列タイトルがセルに保存された後に発生します

説明

このイベントを使用して、ヘッダーセルに条件付き書式を適用できます

構文

TAfterTitle = procedure(Sender: TObject; Cell: IXLSRange; FieldIndex: Integer; Field: TField) of object;
Sender TObject. 指定します TDataToXLS コンポーネント triggered イベント
Cell 列タイトルを表すセルの IXLSRange
FieldIndex Integer. インデックス の field
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;