HotXLS-Dokumentation
Start Inhalt Übersicht

AfterTitle-Ereignis

Tritt auf, nachdem der durch FieldIndex angegebene Spaltentitel in die Zelle gespeichert wurde

Beschreibung

Sie können dieses Ereignis verwenden, um bedingte Formatierung auf jede Kopfzeilen-Zelle anzuwenden

Syntax

TAfterTitle = procedure(Sender: TObject; Cell: IXLSRange; FieldIndex: Integer; Field: TField) of object;
Sender TObject. Gibt TDataToXLS Komponente dass triggered Ereignis
Cell IXLSRange, das die Zelle mit dem Spaltentitel repräsentiert
FieldIndex Integer. Der Index des Feldes
Field TField. Objekt dass stellt dar field von dataset

Beispiel

Dieses Beispiel setzt die Breite der Spalte mit Index 2 

procedure TForm1.DataToXLS1AfterTitle(Sender: TObject;
  Cell: IXLSRange; FieldIndex: Integer; Field: TField);
begin
  if FieldIndex = 2 then Cell.ColumnWidth := 30;
end;
Dieses Beispiel zeigt, wie der Text des Spaltentitels geändert wird 

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