有关DBGridEh中复选框的问题

[test-20131128]

准备在DBGridEh显示数据库中数据的同时，在每一行前面加一列用于显示复选框，然后可以进行批量删除操作，我的设置如下：
dbgrdh1.Columns[0].Checkboxes := True;
dbgrdh1.Columns[0].CheckboxState := cbUnchecked;
dbgrdh1.Columns[0].KeyList.Clear;
dbgrdh1.Columns[0].KeyList.Add('0');
dbgrdh1.Columns[0].KeyList.Add('1');
dbgrdh1.Columns[0].ReadOnly := False;
dbgrdh1.Columns[0].alwaysshoweditbutton := True;

选择事件：
procedure TFormEditRecord.dbgrdh1CellClick(Column: TColumnEh);
begin
if Column.FieldName = 'fselect' then
begin
if dbgrdh1.Columns[0].CheckboxState = cbUnchecked then
dbgrdh1.Columns[0].CheckboxState := cbChecked
else
dbgrdh1.Columns[0].CheckboxState := cbUnchecked;
end;
end;
运行之后可以显示出来复选框，可是点击之后并没有选择，请问这个问题要怎么解决？急求，解决问题即结贴送分，只有40分

[babydog01]

实在不行，在数据库中加一个辅助字段，根据字段来判断是否选定更方便。
可直接用SQL语句来删除都可以.delete aaa where 辅助字段=1,方便快捷

[wwwhghhao12345]

dbgrdh1.Columns[0].Checkboxes := True;
dbgrdh1.Columns[0].CheckboxState := cbUnchecked;
dbgrdh1.Columns[0].KeyList.Clear;
dbgrdh1.Columns[0].KeyList.Add('0');
dbgrdh1.Columns[0].KeyList.Add('1');
dbgrdh1.Columns[0].ReadOnly := False;
dbgrdh1.Columns[0].alwaysshoweditbutton := True;

这段代码不要
把dbgrideh的columns0的checkbox设置成true、keylist设置成 '0' '1' 、readonly设置成false！
试试吧 我的这样子没问题！