Как остановить автодобавление из DBGrid Добавьте в событие "BeforeInsert"...

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

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

procedure TForm1.Tbable1BeforeInsert(DataSet: TDataset);
begin
Abort;
end;

ИЛИ

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;

Понравилась статья? Поделиться с друзьями:
Добавить комментарий

;-) :| :x :twisted: :smile: :shock: :sad: :roll: :razz: :oops: :o :mrgreen: :lol: :idea: :grin: :evil: :cry: :cool: :arrow: :???: :?: :!: