Непонятные вызовы AfterScroll вTIBDataset

[sdsfy]

Приветствую коллег!

Есть Датасет, в котором определены поли. пара которых является fkLookup.

В этом датасете, по обработчику AfterScroll, я выполняю некоторые операции.
На TIBDataset ссылается TDataSource, на который, в свою очередь, ссылаются TDBGrid и TDBNavigator.

При открытии таблицы происходит многократная генерация событий вызывающих обработчик Afterscroll. Я так понимаю, что это связано с тем, что у меня определены поля fkLookup. Может и ошибаюсь.

Мне надо, чтоб обработчик AfterScroll вызывался только на фактическую смену курсора в DBGrid.

Кто может сказать, где искать решение?

[sdsfy]

Некоторые эксперименты опровергли часть подозрений, но внесли новые непонятки.

У IBDataset Определены обработчики BeforeClose и AfterOpen.
В BeforeClose я запоминаю позицию зациси для Locate после переоткрытия
В AfterOpen Я делаю Locate. Так вот. Если вызываю Locate, Обработчик AfterScroll вызывается 5 раз на Набор Данных, состоящий всего из одной записи. Если не вызывать Locate в AfterOpen , то вне зависимости от числа записей в НД AfterScroll вызывается всего один раз.

Но где еще можно вызывать Locate, чтоб не было такого многократного вызова AftelScroll? А может есть лучший способ, чем Locate?

[Аватар]

IBDataset.AfterScroll:=nil;
IBDataset.Locate(...);
IBDataset.AfterScroll:=IBDatasetAfterScroll;
IBDataset.AfterScroll(IBDataset);

[sdsfy]

Спасибо!
Хорошая идея (нечто аналогичное, ранее было опробовано с меньшей результативностью), но все равно вызывается 2 раза. Хотя уже не 5.
Убрав

IBDataset.AfterScroll(IBDataset);

начало вызываться только 1 раз. т.к. как и должно быть. Что, как мне кажется - странно.

[Аватар]

начало вызываться только 1 раз. т.к. как и должно быть. Что, как мне кажется - странно.

Зря убрали, Locate указатель на другую запись переведет, а AfterScroll не отработает

[sdsfy]

Сообщение от Аватар

Зря убрали, Locate указатель на другую запись переведет, а AfterScroll не отработает

Согласен.

И даже больше, собственно правильный код будет таким

IBDataset.Close;//если требуется
IBDataset.AfterScroll:=nil;
IBDataset.Open;//
IBDataset.Locate(...);
IBDataset.AfterScroll:=IBDatasetAfterScroll;
AfterScroll(IBDataset);

Еще раз спасибо!