delphi7, Edit，dbgrid 中判断是否按的del，禁止按dell，backspace建方法

procedureTForm1.DBGrid1KeyUp(Sender: TObject;varKey:Word;

Shift: TShiftState);

begin

//首先将窗体的keypreview设为true

//禁止按delete 删除键

　　 ifKey=46then

　　begin

//ShowMessage('ok');

Key=0;

end;

//首先将窗体的keypreview设为true

//禁止按backspace 返回退格键，这里如果Edit内容为数字则这个方法不好用，有待研究

if key=8 then

begin

key=0;

end;

end;