Как защитить запись в 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;
|