VPF::DB Aware компонент - Форум программистов

elvis79

Дата 6.8.2009, 09:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 52
Регистрация: 13.11.2008
Где: Украина, Ивано-Фр анковск

Репутация: нет
Всего: нет

Пишу свой DB Aware компонент TMyDBGrid. Отображает только одно поле из датасета. Все вроде получилось. Делал по примеру "Разработка DB-Aware компонентов". Но заметил баг. Если набор данных изменяется вследствии скролинга мастер-таблици, то связаный с подчиненой таблицей мой компонент не перерисовывается (обновляется).

Как отловить событие, которое возникает при изменении набора данных вызваных при скролинге по MasterQuery?

Код


MasterQuery(TDBGrid) -->  DetailQuery(TMyDBGrid)

Если я скролирую по MasterQuery, то изменяется содержимое DetailQuery. Как мне отловить это изменение в своем контроле TMyDBGrid. Для TDataLink есть свойство RecordChanged, которое реагирует почти на все изменениия, но как в нем отфильтровать (или может есть какое-то другое) то, что изменился именно набор данных, а не скролинг по DetailQuery

Код


  TMyDataLink = class(TFieldDataLink)
  private
    FMyDBGrid:TMyDBGrid;
  protected
    procedure ActiveChanged; override;
    procedure RecordChanged(Field: TField); override;
    ...
  end;

  constructor TmmRGListDataLink.Create(AOwner: TMyDBGrid);
  begin
    inherited Create;
    FMyDBGrid := AOwner;
  end;

  procedure TmmRGListDataLink.ActiveChanged;
  begin
    inherited;
    FMyDBGrid.Repaint;
  end;

  procedure TmmRGListDataLink.RecordChanged(Field: TField);
  begin
    inherited;

    - если изменился набор данных то вызвать FMyDBGrid.Repaint для перерисовки контрола TMyDBGrid

    - Синхронизация пложения курсора в моем контроле  с положением курсора в датасете DetailLink

  end;

Собственно вопрос. Как отследить это изменение. Возможно надо использовать не TFieldDataLink, а какой-то другой

Это сообщение отредактировал(а) elvis79 - 6.8.2009, 09:50

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »