[sorockinalex]

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

На форме есть поля TEdit 3 штуки.
При вводе значений происходит запрос к базе данных и отображение отфильтрованного в DBGrid под ними.


Если запрос выдаёт 0 записей, то значения в этих полях - новые и в последствии будут вноситься в базу.. Когда запрос выдал 0 записей, то под третьим (последним) TEDit появляется DBLookupComboBox, содержащий отфильтрованный по третьему полю список компаний, к которой принадлежит филиал компании, который хотим добавить...
(например, филиал: ЮНГ=ОАО "Юганскнефтегаз", а принадлежит к компании РОСНЕФТЬ...)



//процедура при изменении любого из трёх полей ввода

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure TFaddeditoiljob.edt_Change(Sender: TObject); var   pos:Integer;   sndr:TEdit; begin   //Запоминаем позицию курсора в поле ввода   pos:=(Sender as TEdit).SelStart;   //Сворачиваем комбобокс   if dbcbb_companies1.Visible then dbcbb_companies1.CloseUp(false);   //Фильтруем (запрос филиалов для таблицы)   if (Sender=edt_branchname1) or (Sender=edt_branchfullname1) or (Sender=edt_company1) then BranchesFilter(1);   //Комбобокс видим когда филиала не найдено и (значение в третьем поле не равно значению в комбобоксе или в комбобоксе более одного значения)   dbcbb_companies1.Visible:=(mrdm.qr_branches1.RecordCount=0) and                             ((AnsiUpperCase(edt_company1.Text)<>AnsiUpperCase(mrdm.qr_companies1.FieldByName('company').AsString)) or                            (dbcbb_companies1.ListSource.DataSet.RecordCount>1));       edt_companyClick(Sender as TEdit);     (Sender as TEdit).SetFocus;   (Sender as TEdit).SelStart:=pos; end;

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

Код:

1 2 3 4 5 6 7 8

procedure TFaddeditoiljob.edt_companyClick(Sender: TObject); begin   //сначала сворачиваем без подтверждения   if dbcbb_companies1.Visible then dbcbb_companies1.CloseUp(false);   //если комбобокс виден, то раскрываем его   if (Sender=edt_company1) or (Sender=edt_branchname1) or (Sender=edt_branchfullname1)then     if dbcbb_companies1.Visible then dbcbb_companies1.DropDown; end;

Теперь сама проблема: проблема в том, что почему-то разворачивание списка происходит через раз при вызове из предудыщей процедуры... То есть видно, как он быстро разворачивается и сворачивается обратно... При этом пропадает возвращение фокуса ввода в это поле

Код:

1 2	(Sender as TEdit).SetFocus; (Sender as TEdit).SelStart:=pos;

[sorockinalex]

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

[sorockinalex]

каким-то чудесным образом разобрался )) дело в фокусе ввода. фокус ввода при сворачивании комбобоксов уходит на них. переместил восстановление фокуса и позиции курсора под строки сворачивания комбобоксов и всё работает!

[Mrak]

обращайся еще!

но с красным перебор

p.s. неплохие статьи
http://habrahabr.ru/post/155085/
http://habrahabr.ru/post/208966/