Delphi

Вопрос

Как запретить автодобавление новой записи в DBGrid при нажатии клавиши вниз, когда стоишь на последней записи?

Ответ

Добавь в событие "BeforeInsert"=компонентов TTable=следущее:

procedure=TForm1.Tbable1BeforeInsert(DataSet:=TDataSet);
begin
    Abort;=={вот это}
end;

Это перехватывает нажатие клавиш и проверяет на конец данных в таблице:

procedure=TForm8.DBGrid1KeyDown(Sender:=TObject;=var=Key:=Word;=Shift:=TShiftState);
begin
  if=(Key===VK_DOWN)=then
   begin
   TTable1.DisableControls;
    TTable1Next;
     if=TTable1.EOF=then Key=:==0
       else TTable1.Prior;
        TTable1.EnableControls;
    end;
end;

Кирилл Краснов