[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

[Viktor059]

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

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

Так то оно крутиться безо всяких процедур, хотел добавить мышь

[Assistant]

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

Так то оно крутиться безо всяких процедур, хотел добавить мышь

а я по твоему тебе код для чего дал? для мышки и дал, скроллером МЫШКИ крутится, проверено, но только на области DBLookupComboBox

P.S. НУЖНО использовать код который привёл movnet, только с моими изменениями.

[Viktor059]

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

а я по твоему тебе код для чего дал? для мышки и дал, скроллером МЫШКИ крутится, проверено, но только на области DBLookupComboBox

P.S. НУЖНО использовать код который привёл movnet, только с моими изменениями.

А как тогда сделать чтобы с развернутым списком работало?

[Lost_Fish]

Спасибо брацы за советы, вот мой образчик

Код:

If DBLookUpComboBox.Focused then
     If Message.WParam<0 then 
           DBLookUpComboBox.Perform(WM_KEYDOWN, VK_DOWN, 0) 
     else   
           DBLookUpComboBox.Perform(WM_KEYDOWN, VK_UP, 0);