Добрый день!

D5sp1+ado patch

TDataChangeEvent = procedure(Sender: TObject; Field: TField)

в хелпе написано:
Data-aware controls notify a data source of a data change because of:

Scrolling to a new record.
Modifications to a field’s data.

но ещё он происходит, когда меняется TDataSet.Fields[].Visible
причём можно было бы ожидать, что Field: TField должно быть в этом случае не nil, всё-таки одно поле меняем. Нет, там nil :-(. Смотрел исходники, но ничего, что могло бы указывать на обход этого не заметил

Что делать?
кроме:
1 сохранять/обнулять/восстанавливать OnDataChange в обработчике
2 TDataSet.OnScroll/TDBGrid.OnCellClick/TDBGrid.OnKeyUp

есть грид и TEdit
по первому нужно ходить, а во втором отображать текущую запись

TDBEdit не предлагать:-)

//есть грид и TEdit
//по первому нужно ходить, а во втором отображать текущую запись

это упрощённо, просто не используется грид для редактирования, оно всё вынесено на отдельную панель

поэтому нужна возможность ходить по гриду, а показывать в панели

несколько ошибся-TDataSet.AfterScroll
его не предлагать потому, что это евент датасета

по определённым причинам(слишком много объяснять) датасеты трогаться не должны

2 pkarklin

вопрос конкретный, а "бодяга" призвана убедить в том, что можно сделать совсем по другому

надо заставить заработать это, а не переделывать всё

2 Малиновский Владимир

TDataSource.OnDataChange подходит В ДАННОМ СЛУЧАЕ лучше, чем TDataSet.AfterScroll, потому, что есть TDataSet.DisableControls

2 pkarklin

согласен, что иногда лучше переделать всё правильно, хотя это общие слова
а как правильно В ДАННОМ СЛУЧАЕ?

задача обычная(для меня)

упрощённо:
1 на форме лежит грид и панель с не дб визуализаторами
2 ходим по гриду, данные из него надо отображать в этой панели
3 редактирования в гриде нет ибо его квери ридонли
4 нажимаем на кнопку добавить/изменить
5 редактируем едиты
6 кнопка ОК записывает всё в базу через хранимку

раньше всё работало на TDBGrid.OnCellClick+OnKeyUp, но это не позволяло ловить передвижение полосой прокрутки, вот я решил переделать

AfterScroll не работает ещё и при .Open квери, только при реальном скролле

остался только OnDataChange, но с ним возникли проблемы из-за возможно глюка/фичи VCL, которая этот евент выдаёт не только на скролл и изменение данных, как в хелпе, но ещё и на изменение поля из FieldList. При смене Query.Fields[].Visibile тоже евентится, при чём ...Field : TField) в евенте=nil, хотя логичнее равенство изменяемому полю.

Спасибо всем, уже решилось за счёт проверки FieldList.Updated, т.е пришлось написать так

with DBG.DataSource.DataSet do
begin
if ( State <> dsBrowse ) or assigned ( Field ) or TFieldList2 ( FieldList ).Updated then exit ;

2 tygra

оно у меня из хранимки, иначе нельзя
тогда придётся писать ещё кучу евентов по поводу вставки в неживой датасет и т.д.

всякие BeforePost и т.д.

бр-р-р...