怎样跟踪在DBGird中按Ctrl+Delete键来删除一条记录呢？

[oyxiaoyu0]

很想看看他的原代码是怎么实现的

[OO_is_just_P]

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = 46) and (ssCtrl in Shift) then DataSet.Delete;
end;