Drag & Drop в DBGrid

[Stilet]

mihali4

Дружище, такой финт помоему просто вызовет exception.
Впрочем попрежнему малопонятно чем автор парится. Мне по крайней мере.

[mihali4]

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

такой финт помоему просто вызовет exception.

Нет, никакого эксепшена не будет. Вы запамятовали - часто используемый цикл while not Table.EOF do не вызывает эксепшена

[Stilet]

Да верно, не подумал )

[Mishechka]

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

Что за бред?
Сделайте

Table1.Last;
Table1.Next;

Выше я уже показывал свой код:

procedure TfmProv.SourceTable1DataChange(Send er: TObject; Field: TField);
begin
with Table1 do begin
UpBtn.Enabled:= not Bof;
DownBtn.Enabled:= not Eof;
end;
end;

Пожалуйста, втулите в мой код то, что Вы предложили и сделайте кнопку DownBtn недоступной когда курсор стоит на последней записи. Буду благодарен. А то, действительно, бред получается, спрашиваешь об одном, а говорят о чём угодно, да ещё бредом называют.

[mihali4]

Ну-у-у...
Тут подсказка одна - обрабатывать нужно событие AftrScroll.
Вот ваш собственный код, который приведет к нужному эффекту:

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
UpBtn.Enabled:= not Table1.Bof;
DownBtn.Enabled:= not Table1.Eof;
end;

Согласитесь - никаких "откровений", кроме того, что вам было лень посмотреть - а какие же события есть у TTable?

[Mishechka]

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

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
UpBtn.Enabled:= not Table1.Bof;
DownBtn.Enabled:= not Table1.Eof;
end;

а какие же события есть у TTable?

Все события у TTable уже опробованы, и код, предложенный Вами, тоже.

Сделайте кнопку DownBtn недоступной когда курсор стоит на последней записи, а не за ней.

[Stilet]

Сделайте кнопку DownBtn недоступной когда курсор стоит на последней записи, а не за ней.

Прикрепляй сюда весь свой проект с базами. Иначе ниче не понятнь.

[mihali4]

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

Все события у TTable уже опробованы, и код, предложенный Вами, тоже.
Сделайте кнопку DownBtn недоступной когда курсор стоит на последней записи, а не за ней.

Элементарно...

procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
var bf,ef: boolean;
begin
Table1.Prior;//пробуем двинуться выше
bf:=Table1.Bof;
if not bf then
Table1.Next;//возвращаемся на нашу запись
UpBtn.Enabled:=bf;
Table1.Next;//пробуем двинуться дальше
ef:=Table1.Eof;
if not ef then
Table1.Prior;//возвращаемся на нашу запись
DownBtn.Enabled:=ef;
end;

[Mishechka]

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

Элементарно...

'Stack overflow'. Process stopped.

[Mishechka]

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

Прикрепляй сюда весь свой проект с базами. Иначе ниче не понятнь.

Для этого мне нужно будет его переделать. В нём 11 форм и сторонние компоненты.