Désactiver la suppression avec CTRL+DELETE dans un DBGrid

Salut;

simple et efficace !

Code:

---

1 2 3 4 5 6

procedure Form1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift:TShiftState) ; begin if (Shift = [ssCtrl]) and (Key = VK_DELETE) then Key := 0; // ignorer la suppression end;

---