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

Благодарю за поддержку!

		Новости сайта
		Новости форума

Архив исходников

Automatic translation

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

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