» cxGridBDTable + Checkbox

имеется cxGridBDTable1

(задание и условия получения запроса и генерации таблицы упрощены)

заполняется запросом.
столбец (единственный) идет из select 0 as CHECKBOX1 from dual

обработчик на кнопку:

Код: var
V_COL: TcxGridDBColumn;
begin
V_COL := cxGrid1DBTableView1.CreateColumn;
V_COL.DataBinding.FieldName := Q_Tree.Fields.Fields[0].FieldName;
V_Col.PropertiesClassName := 'TcxCheckBoxProperties';
TcxCheckBoxProperties(V_Col.Properties).ValueChecked := 1;
TcxCheckBoxProperties(V_Col.Properties).ValueUnchecked := 0;
end;

moonrise


Код:
if Pos('MY_COLUMN', cxGrid1BandedTableView1.Columns[AItem.Index].Name) > 0 then
begin
if TcxCheckBox(cxGrid3BandedTableView1.Controller.EditingController.Edit).Checked
then....
else
.......

УРРААА. ОГРОМНОЕ СПАСИБО


Добавлено:
тут товарищи подсказали более простое решение


Код: procedure TForm1.cxGrid1DBTableView1EditValueChanged(
Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem);
begin
OraQuery1.Post; //DataSet
ShowMessage(AItem.EditValue);
end;