Как заблокировать TDBGrid от автодобавления новой записи

Previous  Top  Next

    
 

 

Добавьте в обработчик события вашего TTable "BeforeInsert" следующую строку:

Code:

procedure TForm1.Tbable1BeforeInsert(DataSet: TDataset);

begin

Abort;  // <<---эту строчку

end;

 

 

Осуществляем перехват нажатия клавиши и проверку на конец файла (end-of-file):

Code:

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;

 

 

©Drkb::03059

       

Взято с http://delphiworld.narod.ru