Как защитить запись в DBGrid от удаления?

Previous  Top  Next

    
 

 

Поместите следующий код в событие OnKeyDown в DBGrid.

Code:

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if (ssctrl in shift) and (key=vk_delete) then key:=0;

end;

 

 

©Drkb::03021

Взято из http://forum.sources.ru