Se produce después de guardar el título de columna especificado por ColumnIndex en la celda
Descripción
Puede usar este evento para aplicar formato condicional a la celda de encabezado
Sintaxis
TDBGridAfterTitle =
procedure(Sender: TObject; Cell:
IXLSRange; ColumnIndex: Integer; Column: TColumn) of object;
| Sender |
TObject. Especifica TGridToXLS componente que triggered evento |
| Cell |
IXLSRange que representa la celda con el título de la columna |
| ColumnIndex |
Entero. índice de columna |
| Column |
TColumn. objeto que representa columna |
Ejemplo
Este ejemplo establece el ancho de la columna con índice 3
procedure TForm1.GridToXLS1AfterTitle(Sender: TObject;
Cell: IXLSRange; ColumnIndex: Integer; Column: TColumn);
begin
if ColumnIndex = 3 then Cell.ColumnWidth := 30;
end;
Este ejemplo muestra cómo cambiar el texto del título de columna
procedure TForm1.GridToXLS1AfterTitle(Sender: TObject;
Cell: IXLSRange; ColumnIndex: Integer; Column: TColumn);
begin
Cell.Value := StringReplace(Cell.Value, '_', ' ', [rfReplaceAll]);
end;