procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);begin//首先将窗体的keypreview设为true
//禁止按delete 删除键
if Key=46 then begin
//ShowMessage(‘ok‘);
Key=0;
end;
//首先将窗体的keypreview设为true
//禁止按backspace 返回退格键，这里如果Edit内容为数字则这个方法不好用，有待研究
if key=8 then
begin
key=0;
end;
end;delphi7, Edit，dbgrid 中判断是否按的del，禁止按dell，backspace建方法
原文：http://www.cnblogs.com/lantianhf/p/6341547.html