cxGrid动态创建带CheckBox列时遇到的问题...

目的：为了不太依赖设计时添加cxGrid列并绑定数据，决定动态创建cxGrid列，其中CheckBox未绑定数据集

代码：

// 动态创建GridView
procedure MyClass.initializecxMyGoods(cxGrid_DBTableView1:TcxGridDBTableView);
begin

cxGrid_DBTableView1.DataController.DataModeController.GridMode
:= False;
cxGrid_DBTableView1.DataController.DataModeController.
SmartRefresh := True;
// 设置主键
cxGrid_DBTableView1.DataController.KeyFieldNames := 'ID';

with cxGrid_DBTableView1.CreateColumn do
begin
Name := 'colUnbound';
Caption := '选择';
DataBinding.ValueTypeClass := TcxBooleanValueType;
PropertiesClass := TcxCheckBoxProperties;
MinWidth := 40;
with TcxCheckBoxProperties(Properties) do
begin
AllowGrayed := False;
ValueChecked := True;
ValueUnchecked := False;
NullStyle := nssUnchecked;
//绑定事件，如果不取消checkbox焦点，拖拽分组时出现错误提示：Privileged instruction 
OnChange := CancleFocuse;
end;
end;

with cxGrid_DBTableView1.CreateColumn do
begin
Caption := '商品名称';
DataBinding.FieldName := 'name';
MinWidth := 100;
end;
//创建用来显示文本
with cxGrid_DBTableView1.CreateColumn do
begin
Caption := '备注';
DataBinding.FieldName := 'note';
DataBinding.ValueType := 'Variant';
PropertiesClass := TcxBlobEditProperties;
with TcxBlobEditProperties(Properties) do
begin
BlobEditKind := bekMemo;
BlobPaintStyle := bpsText;
end;
MinWidth := 40;
end;

end;

当改变checkbox时，若焦点不转移到其他列则出现 Privileged instruction错误！

具体原因还未找到，临时解决方案 在CheckBox的OnChange事件中解除焦点 ： cxGrid_mygoodsDBTableView1.Focused := False;

onCancle：

procedure MyClass.CancleFocuse(Sender: TObject);
begin
// 释放焦点 （解决分组时出现的指令越界 ， 问题不明，未从根本解决）
cxGrid_DBTableView1.Focused := False;
end;

暂时解决问题！具体原因有时间再搞。。。　

//代码基本来自网上