Скачать: CL | DM;

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

← →
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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c