AV при использовании EhLib

[7in]

Всем привет!

При выборе в TDBLookupComboboxEh пункта запускается обработчик OnChange, который должен загружать в другой TDBLookupComboboxEh список по SQL-запросу:

begin
  with AccessData.qrySecond, SQL do
  begin
    Clear;
    dblkcbbehSecond.KeyValue := Null;
    if dblkcbbehFirst.KeyValue <> Null then
    begin
      Text := 'SELECT * FROM Second WHERE First='+IntToStr(dblkcbbFirst.KeyValue);
      Open;
    end;
  end;
end;

Для обычного TDBLookupCombobox всё работает чётко (только там вместо OnChange используется OnClick). А вот при использовании TDBLookupComboboxEh вылетает AV во время закрытия программы.
В чём может быть косяк?
p.s. Delphi 7 + MS Access

Исключение вылетает только при закрытии. При срабатывании (в т.ч. многократном) OnChange всё работает как надо, список подгружается.

В принципе, можно оставить только with + Text := ... + Open (т.е. убрать Clear, ... := Null и if), всё равно будет ошибка...

[northener]

Сообщение от 7in

А вот при использовании TDBLookupComboboxEh вылетает AV во время закрытия программы.

Ищите ошибку в своей программе!

Сообщение от 7in

Для обычного TDBLookupCombobox всё работает чётко

Если "чётко" означает что программа не выдает сообщение об AV, то это ровным счётом ничего не значит.
Ещё раз повторю для всех начинающих программистов:
Присутствие при выполнении программы сообщения об AV является точным указанием, что в программе есть ошибка работы с памятью.
Отсутствие такого сообщения НЕ ЯВЛЯЕТСЯ подтверждением отсутствия ошибок работы с памятью! От слова совсем.

[Аватар]

Какой-то из объектов ужу разрушен в момент срабатывания обработчика? Попробуй обнулить OnChange комбобокса в OnClоse формы

[7in]

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

Попробуй обнулить OnChange комбобокса в OnClоse формы

Форма с комбобоксом вызывается через другую (главную) форму, так что к моменту закрытия программы, эта форма уже закрыла и ошибок не вызвала...

[7in]

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

Ищите ошибку в своей программе!

Да там негде быть ошибке, разве что в свойствах TDBLookupComboboxEh. Но я выставил там лишь ListSource, ListField и KeyField. Всё остальное осталось по дефолту.

До OnChange выполняется лишь открытие формы:

  Hide;
  FormList.ShowModal;
  Show;

И в самой форме OnShow:

  try
    with AccessData do
    begin
      conMain.Open;
      tblMain.Open;
      tblExtra.Open;
    end;
  except
    on E: Exception do
    begin
      ShowMessage('DB Error!');
      Close;
    end;
  end;

Всё!
После OnChange кода нет вообще.

К тому же, повторюсь, когда комбобокс был без Eh, ошибок не выводилось...

[7in]

Добавил в OnClose:

  AccessData.conMain.Close;

Ошибка пропала...

[northener]

Сообщение от 7in

Да там негде быть ошибке

А она есть.

Сообщение от 7in

Ошибка пропала

Сообщение об AV перестало выводиться. А ошибка... ХЗ. то ли пропала, то ли нет.