Как защитить запись в DBGrid от удаления - Убирать за собой надо... - раздраженно сказал программист, удаляя папку `mssetup.t procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (ssctrl in shift) and (key=vk_delete) then key:=0; end; Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru Источник получения информации: http://www.delphiworld.narod.ru
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (ssctrl in shift) and (key=vk_delete) then key:=0; end;