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;

Из конференции Delphi