Как остановить автодобавление из 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