Предохранение от автодобавления записи

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Автор: Bill Curtis (Borland International)

Мне необходимо как-то предотвратить автоматическое добавление записей в таблицу. Может быть предусмотреть какую-то хитрость для создания новой записи в табличной сетке?

Попробуй это (я правда оставил некоторый мусор после испытаний кодов клавиш). Для 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» должна быть объявлена глобально.

{/codecitation}