ColumnIndex で指定された列タイトルがセルに保存された後に発生します
説明
このイベントを使用して、ヘッダーセルに条件付き書式を適用できます
構文
TDBGridAfterTitle =
procedure(Sender: TObject; Cell:
IXLSRange; ColumnIndex: Integer; Column: TColumn) of object;
| Sender |
TObject. 指定します TGridToXLS コンポーネント triggered イベント |
| Cell |
列タイトルを表すセルの IXLSRange |
| ColumnIndex |
Integer. インデックス の 列 |
| Column |
TColumn. オブジェクト 表します 列 |
使用例
この例では、インデックス 3 の列の幅を設定します
procedure TForm1.GridToXLS1AfterTitle(Sender: TObject;
Cell: IXLSRange; ColumnIndex: Integer; Column: TColumn);
begin
if ColumnIndex = 3 then Cell.ColumnWidth := 30;
end;
この例では、列タイトルのテキストを変更する方法を示します
procedure TForm1.GridToXLS1AfterTitle(Sender: TObject;
Cell: IXLSRange; ColumnIndex: Integer; Column: TColumn);
begin
Cell.Value := StringReplace(Cell.Value, '_', ' ', [rfReplaceAll]);
end;