Показать сообщение отдельно
  #6  
Старый 20.11.2012, 11:38
Аватар для seelenus
seelenus seelenus вне форума
Прохожий
 
Регистрация: 14.11.2012
Адрес: Новокузнецк
Сообщения: 14
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от NumLock
просто при нажатии стрелки вниз на последней строке автоматически происходит добавление новой записи Dataset.Append:
Код:
procedure TCustomDBGrid.KeyDown(var Key: Word; Shift: TShiftState);
...
  procedure NextRow(Select: Boolean);
  begin
    with FDatalink.Dataset do
    begin
      if (State = dsInsert) and not Modified and not FDatalink.FModified then
        if FDataLink.EOF then Exit else Cancel
      else
        DoSelection(Select, 1);
      if FDataLink.EOF and CanModify and (not ReadOnly) and (dgEditing in Options) then
        Append;
    end;
  end;
...
      case Key of
        VK_UP: PriorRow(True);
        VK_DOWN: NextRow(True);
Ага, то есть это автоматическое редактирование таблицы. Нашел такое свойство Editing и отключил, спасибо.
Ответить с цитированием