Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Приходится дважды щёлкать по TDBLookupComboboxEh

Автор: Akella 12.6.2009, 10:24

На форме несколько TDBLookupComboboxEh
Когда нажимаю кнопку спрва для того, чтобы список раскрылся, то список раскрывается и сразу же закрывается. Когда щёлкаешь уже по кнопке второй раз и более, то эффекта самозакрывания нет. Никаких событий у TDBLookupComboboxEh нет. Если щёлкать не по кнопке, а непосредственно по самому элементу, то такой проблемы не наблюдаю.
CodeGear™ RAD Studio 2007 Version 11.0.2902.10471
EhLib 4.3 Build 4.3.21 Russian version

Написал автору. Не знаю, когда ответит.

Добавлено @ 10:38
Я нашёл проблему.
При создании окна всем этим выпадающим спискам присваивалось событие

Код


procedure TfmArendaAdd.DBLookupComboboxEhDropDown(sender: TObject);
begin
  if sender is TDBLookupComboboxEh then
    (sender as TDBLookupComboboxEh).DropDown;
end;
....

  for i := 0 to ComponentCount-1 do
    if (Components[i] is TDBLookupComboboxEh) then
      (Components[i] as TDBLookupComboboxEh).OnEnter    := DBLookupComboboxEhDropDown;

Для того, чтобы при попадании фокуса на список, он автоматически бы раскрывался сам. Если этот код закоментировать, то список не выпадает, даже есть установить AutoDrop в True smile

Что можно придумать для "автовыпадания" списка?

Автор: Akella 12.6.2009, 11:14

В общем проблема в том, что DBLookupComboboxEh должен раскрыться сам при попадании на него фокуса ввода.