Как остановить автодобавление из DBGrid?

Previous  Top  Next

    
 

 

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

Code:

procedure TForm1.Tbable1BeforeInsert(DataSet: TDataset);

begin

Abort;

end;

 

 

 

ИЛИ

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::03015

Взято из http://forum.sources.ru