Главная страницаОбратная связьКарта сайта

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


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Как остановить автодобавление из DBGrid", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2023 Дискета.info