Tritt auf, nachdem der durch ColumnIndex angegebene Spaltentitel in die
Zelle gespeichert wurde
Beschreibung
Sie können dieses Ereignis verwenden, um bedingte Formatierungen auf Kopfzeilenzellen anzuwenden
Syntax
TDBGridAfterTitle =
procedure(Sender: TObject; Cell:
IXLSRange; ColumnIndex: Integer; Column: TColumn) of object;
| Sender |
TObject. Gibt TGridToXLS Komponente dass triggered Ereignis |
| Cell |
IXLSRange, das die Zelle mit dem Spaltentitel repräsentiert |
| ColumnIndex |
Integer. Index der Spalte |
| Column |
TColumn. Objekt dass stellt dar Spalte |
Beispiel
Dieses Beispiel setzt die Breite der Spalte mit Index 3
procedure TForm1.GridToXLS1AfterTitle(Sender: TObject;
Cell: IXLSRange; ColumnIndex: Integer; Column: TColumn);
begin
if ColumnIndex = 3 then Cell.ColumnWidth := 30;
end;
Dieses Beispiel zeigt, wie der Text des Spaltentitels geändert werden kann
procedure TForm1.GridToXLS1AfterTitle(Sender: TObject;
Cell: IXLSRange; ColumnIndex: Integer; Column: TColumn);
begin
Cell.Value := StringReplace(Cell.Value, '_', ' ', [rfReplaceAll]);
end;