[Viktor059]

Скажите пожалуйста возможно ли как-нибудь реализовать скроллинг с помощью колеса мыши в DBLookupComboBox

[movnet]

Код:

  private
    { Private declarations }
    procedure MouseWheelHandler(var Message: TMessage);override;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MouseWheelHandler(var Message: TMessage);
var
  p:TPoint;
begin
 GetCursorPos(p);
 If WindowFromPoint(p)=DBLookupComboBox1.Handle then
 begin
  If Message.WParam<0 then
  DBLookupComboBox1.Perform(WM_VSCROLL, SB_LINEDOWN, 0)
  else
  DBLookupComboBox1.Perform(WM_VSCROLL, SB_LINEUP, 0);
 end;
end;

[Viktor059]

Из темы про DB Grid, делал так не пашет.

[Assistant]

в коде приведенном выше нужно это:

Код:

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);

то есть посылать не скролл мышки, а нажатие кнопок на клавиатуре (вниз, вверх)

[Viktor059]

Нет он тупо (даже без этой процедуры) при нажатии на клавиатуре up/down переходит по списку, но не прокручивает.

[Assistant]

дак ты не клавой нажимай, а скроллером крути в области DBLookupComboBox