如何实现按回车键dbgrideh的checkbox打勾

Question

procedure TFormCancel.DBGridEh1CellClick(Column: TColumnEh);
begin
if   Column.Field.FieldName='check'   then
begin
  try
              column.Field.DataSet.Edit;
         IF   column.Field.AsBoolean then
         column.Field.Value:=False
         else
          column.Field.Value:=True;              if   column.Field.Dataset.State=dsEdit   then
                  column.Field.DataSet.Post;
          except
              column.Field.DataSet.Cancel;
          end;
  end;
end;procedure TFormCancel.DBGridEh1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key=13 then
begin
//这边要怎么写
end;

Answer 1

DBGridEh1.DataSource.DataSet.FieldByName().AsBoolean := True;
再 post一次