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

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;