Discussion :

[Just-Soft]

Salut;

simple et efficace !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;