Прекратить в DBGrid автодобавление новой записи
{Как запретить автодобавление новой записи в DBGrid при нажатии
клавиши вниз, когда стоишь на последней записи?}
{A: Добавь в событие "BeforeInsert" компонентов TTable следущую линую:}
procedure TForm1.Tbable1BeforeInsert(DataSet: TDataSet);
begin
Abort; {<<---вот это}
end;
{A: Это перехватывает нажатие клавиш и проверяет на конец данных в таблице.}
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;
{A: Добавь в событие "BeforeInsert" компонентов TTable следущую линую:}
procedure TForm1.Tbable1BeforeInsert(DataSet: TDataSet);
begin
Abort; {<<---вот это}
end;
{A: Это перехватывает нажатие клавиш и проверяет на конец данных в таблице.}
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;
