СообЧа > Дельфинарий > Прекратить в DBGrid автодобавление новой записи

 

Прекратить в DBGrid автодобавление новой записи

{Как запретить автодобавление новой записи в DBGrid при нажатии клавиши вниз, когда стоишь на последней записи?}

{A: Добавь в событие "BeforeInsert" компонентов TTable следущую линую:}

procedure TForm1.Tbable1BeforeInsert(DataSet: TDataSet);
begin
  Abort; {<<---вот это}
end;

{A: Это перехватывает нажатие клавиш и проверяет на конец данных в таблице.}

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;



Рейтинг@Mail.ru Rambler's Top100 Яндекс цитирования

Спасибо, что посетили наш сайт.
Copyright © 2000-2008 Сообщество Чайников
Контактная информация  О проекте