TGrid как установить текст в ячейке TCheckColumn (Delphi XE 4)?

[vivien]

Здравствуйте уважаемые форумчане!

 

Есть такой вопрос, в Grid есть колонка TCheckColumn, через событие OnGetValue, можно установить состояние чекбокса, а можно-ли как-то добавить текст рядом с чекбоксом?

Ранее, в XE2, у TColumn был метод CellControlByRow, и работала такая конструкция:

var 
  tc : TTextCell;
begin
  // ...
  tc := columns[col].CellControlByRow(row) as TTextCell;
  if assigned(tc) then 
    tc.Text := 'текст';
end;

Есть ли какая-нибудь альтернатива для XE4?

[vivien]

Нашел! 

 

Если кому интересно, работает такой вариант:

TCheckCell(Grid1.Columns[col].Controls.Items[row]).Text;

Изменено 10 марта, 2014 пользователем admin
Убрано лишнее приведение к TFmxObject