Table.CellStyle[Row : Integer; Column : Variant].ColSpan : Integer =
Объединить ячейки по горизонтали.

Свойство Table.CellStyle[].ColSpan позволяет объединить по горизонтали несколько ячеек в одну.

Пример:

Procedure OnButtonColClick;
Var
  i : Integer;
Begin
  // Объединение двух первых столбцов
  For i:=0 to Table.Count-1 Do
    If Table[i].First = Table[i].Second Then
       Table.CellStyle[i, 'First'].ColSpan := Table.Columns.Count-1;
End;

Результат работы:

Смотри метод RowSpan.

© RTIT