| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Запретить всатвку в таблицу [D7, XP]

veb ©   (2006-03-09 10:34:00) 

Здравствуйте! Подскажите, как запретить вставку в таблицу значения по нажатию клавиши "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 вставляется новая запись

---

veb   (2006-03-09 10:51:00) [1]

To Олег

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

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

---

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

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

---

Наверх