Попробуй это (я правда оставил некоторый мусор после испытаний кодов клавиш). Для DBGridkeydown используй:
begin s := 'ASCII код клавиши ' + IntToStr(Ord(key)) + ' десятичное';{showmessage(s);} s :=IntToStr(Ord(key)); end; |
И затем в TTable сделайте следующее:
begin if s<>'45' then raise Eabort.create(''); s:=''; end; |
Естественно, "s" должна быть объявлена глобально.
Bill Curtis
Borland International [000378]