procedure BestFitRow(const Index: Integer)
Назначение
Метод автоматически подбирает высоту строки, в зависимости от содержимого ячеек в данной строке.
Описание
Как правило, данный метод необходимо вызывать в событии компонента OnChange.
Также колонкам необходимо присвоить свойство WrapKind := wkWordWrap, чтобы разрешить перенос текста в ячейках.
Пример
// автоматически подбираем высоту всех строк в компоненте
procedure Form1_TableGrid1_OnChange (Sender: string);
var
i, c: integer;
begin
c := Form1.TableGrid1.Columns.Count - 1;
for i := 0 to c do
begin
Form1.TableGrid1.Columns[i].VerticalAlignment := taAlignTop; // задаем вертикальное выравнивание в ячейках колонки
Form1.TableGrid1.Columns[i].WrapKind := wkWordWrap; // включаем возможность переноса строк в ячейках колонки
end;
c := Form1.TableGrid1.RowCount - 1;
for i := 0 to c do Form1.TableGrid1.BestFitRow(i); // для каждой строки вызываем метод для автоподбора высоты
end;
// также обновляет высоту строк при изменении размера колонок
procedure Form1_TableGrid1_OnColumnResize (Sender: TObject; ACol: Integer);
var
i, c: integer;
begin
c := Form1.TableGrid1.RowCount - 1;
for i := 0 to c do Form1.TableGrid1.BestFitRow(i); // для каждой строки вызываем метод для автоподбора высоты
end;