有关DBGridEh中复选框的问题
准备在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分