Как отучить TDBGrid от автодобавления новой записи
Внимание! Осторожно - вирус!
Если вы получите по почте мессадж, где в качестве subject стоит "повестка", а отправителем числится "военкомат", ни в коем случае не открывайте его. Немедленно делетируйте его вместе с конвертом.
Внутри него может оказаться опаснейший вирус, полностью лишающий вас возможности работать на вашем компьютере. Форвардируйте это сообщение всем, с кем вы ведете переписку.
Добавьте в обработчик события вашего TTable "BeforeInsert" следующую
строку:
procedure TForm1.Tbable1BeforeInsert(DataSet: TDataset);
begin
Abort; // <<---эту строчкуend;
Осуществляем перехват нажатия клавиши и проверку на конец файла
(end-of-file):
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;
Статья Как отучить TDBGrid от автодобавления новой записи раздела Компоненты и Классы TDBGrid может быть полезна для разработчиков на Delphi и FreePascal.
