[seelenus]

Здравствуйте.
Проблема такая: есть ряд кнопок и четыре из них хочу сделать как в DBNavigator, т.е переход в начало списка (ToolToBegin), на предыдущую запись (ToolToBack), на слудующую (ToolToForward) и в конец списка (ToolToEnd). Вот обработчик кнопки "переход на следующую запись":

Код:

procedure TForm1.ToolToForwardClick(Sender: TObject);
begin
if DataModule2.ADOQuery1.Eof then
  begin
    Form1.ToolToForward.Enabled:=false;
    Form1.ToolToEnd.Enabled:=false;
  end
  else
  begin
    DataModule2.ADOQuery1.Next;
    if not DataModule2.ADOQuery1.Bof then
    begin
      Form1.ToolToBack.Enabled:=true;
      Form1.ToolToBegin.Enabled:=true;
    end;
  end;
end;

Никак не могу сделать, чтобы условие " if DataModule2.ADOQuery1.Eof " срабатывало сразу. Оно почему-то срабатывает не сразу, а после третьего нажатия на кнопку, т.е. кнопки у меня неактивными становятся не сразу.

[seelenus]

Может есть какой-то получше способ проверить стоит указатель в конце или в начале?

[NumLock]

в справке написано про это:

Eof is true when an application:
...
Call a dataset’s Next method, and the method fails because the current record is already the last row in the dataset.
...

т.е. если Next перешел на последнюю запись, то Eof не будет true. он станет true когда будет вызван Next с уже последней записи.

[seelenus]

Здесь оказывается еще один момент есть: в таблице access есть последняя пустая строка. Я на нее сначала не обращал внимания, но потом в DBGrid, когда перемещаешь указатель с помощью клавиатуры от последней строчки вниз, то появляется пустая строка. А когда указатель перемещаешь вверх, то строка исчезает.[IMG]c:\imag.png[/IMG]
Подскажите, как избавиться от этой строки.

[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);

[seelenus]

Сообщение от 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 и отключил, спасибо.

[seelenus]

Сообщение от NumLock

т.е. если Next перешел на последнюю запись, то Eof не будет true. он станет true когда будет вызван Next с уже последней записи.

блин, не могу сделать, чтобы при установке указателя на последнюю строку кнопки отключались, т.е. чтобы реакция была сразу же. Не прдскажете как сделать проверку на последнюю и первую строки?

[poli-smen]

Сообщение от seelenus

блин, не могу сделать, чтобы при установке указателя на последнюю строку кнопки отключались, т.е. чтобы реакция была сразу же. Не прдскажете как сделать проверку на последнюю и первую строки?

Можешь например в событии AfterScroll проверять значение RecNo на 1 и на RecordCount.

[seelenus]

ну, блин, че бы я без вас делал?м

[seelenus]

Сообщение от poli-smen

Можешь например в событии AfterScroll проверять значение RecNo на 1 и на RecordCount.

Да, ща тоже посмотрел, там 1, а не ноль