cxGrid1DBTableView1.OptionsSelection.CellSelect := true;
cxGrid1DBTableView1.OptionsData.Editing := True;
procedure TForm1.cxGrid1DBTableView1Editing
(Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem;
var AAllow: Boolean);
begin
inherited;
if AItem.Index = cxGrid1DBTableView1Column1.Index then
AAllow := True
else
AAllow := false;
end;