как компоненты типа DBMemo получают уведомленее об обновлении их DataSource?

Заранее благодарю за ответ.

на двух уровнях: а) как и любые порядочные TCustomEdit'ы в OnChange, b) в OnDataChange самого дадасорс.

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

2_hunter А вы не пробовали смотреть исходники Delphi?

Pegas,

пробовал

я так понимаю, нужен этот кусок:
(из конструктора TDB...)

Код

FDataLink := TFieldDataLink.Create;  FDataLink.Control := Self;  FDataLink.OnDataChange := DataChange;

в TFieldDataLink:

Код

procedure TFieldDataLink.RecordChanged(Field: TField); begin  if (Field = nil) or (Field = FField) then  begin    if Assigned(FOnDataChange) then FOnDataChange(Self);    FModified := False;  end; end;

TDataLink:

Код

procedure TDataLink.RecordChanged(Field: TField); begin end;

Код

procedure TDataLink.DataSetChanged; begin  RecordChanged(nil); end;

Код

procedure TDataLink.DataEvent(Event: TDataEvent; Info: Longint); var  Active, First, Last, Count: Integer; begin ...            case Event of              deDataSetChange: DataSetChanged;              deDataSetScroll: DataSetScrolled(Count);              deLayoutChange: LayoutChanged;            end; ... end;

и вот тут застрял
т.к. непонятно кто вызывает это DataEvent
(разве-что вот

Код

procedure TDataLink.SetDataSource(ADataSource: TDataSource); begin  if FDataSource <> ADataSource then  begin    if FDataSourceFixed then DatabaseError(SDataSourceChange, FDataSource);    if FDataSource <> nil then FDataSource.RemoveDataLink(Self);    [b]if ADataSource <> nil then ADataSource.AddDataLink(Self);[/b]  end; end;

а зачем эти дебри? ты свой компонент пишешь?

DataEvent вызывает множество объектов, TFields в момент изменения данных, например, TCustomCоnnection в момент подключения к серверу и др.
Добавлено @ 15:09
открой Db.pas и сделай поиск по DataEvent.