в коде приведенном выше нужно
это:
Код:
DBLookupComboBox1.Perform(WM_VSCROLL, SB_LINEDOWN, 0);
заменить на:
Код:
DBLookupComboBox1.Perform(WM_KEYDOWN, VK_DOWN, 0);
и это:
Код:
DBLookupComboBox1.Perform(WM_VSCROLL, SB_LINEUP, 0);
заменить на:
Код:
DBLookupComboBox1.Perform(WM_KEYDOWN, VK_UP, 0);
то есть посылать не скролл мышки, а нажатие кнопок на клавиатуре (вниз, вверх)