RxLookupEdit

[rita616]

Здравствуйте. Подскажите пожалуйста, как сделать прокрутку в выпадающем списке RxLookupEdit при помощи колесика мыши.
Заранее спасибо.

[beegl]

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

прокрутку в выпадающем списке RxLookupEdit при помощи колесика мыши

примерно так:

procedure TForm1.RxLookupEdit2Change(Sender: TObject);
begin
RxLookupEdit2.Perform(EM_SCROLLCARET, Pred(RxLookupEdit2.ControlCount) {0}, 0);
SendMessage(RxLookupEdit2.Handle, EM_SCROLLCARET,0,0);
end;

или сообщение это слать:

EM_SCROLL

[rita616]

beegl, не получается у меня почему-то(

[rita616]

procedure TMain1.AppMessage(var Msg: TMsg; var Handled: Boolean);
var   i: SmallInt;
begin
  if Msg.message = WM_MOUSEWHEEL then
  begin
    Msg.message := WM_KEYDOWN;
    Msg.lParam := 0;
    i := HiWord(Msg.wParam);
    if i > 0 then Msg.wParam := VK_UP else Msg.wParam := VK_DOWN;
    Handled := False;
  end;
end;

вот код нашла тут на форуме, заработало, но у меня на форме по кнопкам вызываются другие формы, а на кнопках горячие клавиши F1, F2 и т.д. вот они перестали работать из-за этого кода
Подскажите, пожалуйста, что делать

[Heneken87]

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

procedure TMain1.AppMessage(var Msg: TMsg; var Handled: Boolean);
var   i: SmallInt;
begin
  if Msg.message = WM_MOUSEWHEEL then
  begin
    Msg.message := WM_KEYDOWN;
    Msg.lParam := 0;
    i := HiWord(Msg.wParam);
    if i > 0 then Msg.wParam := VK_UP else Msg.wParam := VK_DOWN;
    Handled := False;
  end;
end;

вот код нашла тут на форуме, заработало, но у меня на форме по кнопкам вызываются другие формы, а на кнопках горячие клавиши F1, F2 и т.д. вот они перестали работать из-за этого кода
Подскажите, пожалуйста, что делать

К сожалению полную реализацию не дам, компонента RxLookupEdit просто нет.
Ниже приведенный код перехватывает событие "прокрутки". Работает только если форма активна. Вместо сообщений "Верх- Вниз" можете установить Focus в компонент и эмулировтаь нажатие клавиш верх вниз например, либо(если компонент позволяет) сразу скролить.

Type
  TМояФорма = class(TForm)
    procedure Wheel (var Msg : TWMMouseWheel); message WM_MOUSEWHEEL;

implementation

procedure TМояФорма.Wheel(var Msg: TWMMouseWheel);
begin
  if Msg.WheelDelta < 0  then
  ShowMessage('Кручу вниз')
  else ShowMessage('Кручу вверх');
end;