Как заблокировать 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