Программист обиделся, что о нем анекдот про 2 стакана сочинили (ну, вы знаете). Жалуется системному программисту. А тот задумался и говорит:
- Нет, 2-х стаканов недостаточно. Нужно 4.
- ???
- Системное резервирование.
Добавьте в событие "BeforeInsert" Вашего TTables следующие строки:
procedure TForm1.Tbable1BeforeInsert(DataSet: TDataset);
begin
Abort;
end;
или
procedure TForm8.DBGrid1KeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
beginif (Key = VK_DOWN) thenbegin
TTable1.DisableControls;
TTable1Next;
if TTable1.EOF then
Key := 0
else
TTable1.Prior;
TTable1.EnableControls;
end;
end;
Статья Как остановить автодобавление из DBGrid раздела Компоненты и Классы TDBGrid может быть полезна для разработчиков на Delphi и FreePascal.
