現在のレコードの FieldIndex で指定されたフィールドがセルに保存された後に発生します
説明
このイベントを使用して、詳細領域のエクスポートされたセルに条件付き書式を適用できます
構文
TAfterCell =
procedure (Sender: TObject; Cell:
IXLSRange; RowIndex, FieldIndex: Integer; Field: TField) of object;
| Sender |
TObject. 指定します TDataToXLS コンポーネント triggered イベント |
| Cell |
エクスポートされるセルを表す IXLSRange |
| RowIndex |
現在の行のインデックス |
| FieldIndex |
Integer. インデックス の field |
| Field |
データセットのフィールドを表す TField |
使用例
この使用例は、奇数列の内側の色をシルバーに設定します
procedure TForm1.DataToXLS1AfterCell(Sender: TObject;
Cell: IXLSRange; RowIndex, FieldIndex: Integer; Field: TField);
begin
if Odd(FieldIndex + 1) then Cell.Interior.Color := ColorToRGB(clSilver);
end;