Как отучить 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);
begin
if (Key = VK_DOWN) then
begin
TTable1.DisableControls;
TTable1Next;
if TTable1.EOF then
Key := 0
else
TTable1.Prior;
TTable1.EnableControls;
end;
end;
|
|
