Запретить всатвку в таблицу

← →
veb (2006-03-09 10:34) [0]

Здравствуйте! Подскажите, как запретить вставку в таблицу значения по нажатию клавиши "Ins", но чтоб буфер Ctrl+Ins, Shift+Ins при редактирование записи работал.
Т.е.
procedure TfmDisks.DBGridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key = 45) and (shift=[]) then Key := 0;
end;
вот такой метод приводит к тому что, на Shift+Ins вставляется новая запись

← →
Жуков Олег (2006-03-09 10:44) [1]

Можно проверять например DBGrid.EditorMode
if (Key = 45) and (shift=[]) and not (sender as TDBGrid).EditorMode then
Key := 0;

← →
veb (2006-03-09 10:51) [2]

To Олег

ГЫНИАЛЬНО!
Спасибо большое!

Вот так будет правильно:
if (Key = 45) and not (sender as TDBGrid).EditorMode then Key := 0;

Запретить всатвку в таблицу Найти похожие ветки