Добавьте в обработчик события вашего TTable "BeforeInsert" следующую строку:
procedure TForm1.Tbable1BeforeInsert(DataSet: TDataset); begin Abort; <<---эту строчку end; |
Осуществляем перехват нажатия клавиши и проверку на конец файла (end-of-file):
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; |
[001364]