|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Скроллинг в LookupComboBox
Скажите пожалуйста возможно ли как-нибудь реализовать скроллинг с помощью колеса мыши в DBLookupComboBox
|
#2
|
||||
|
||||
Код:
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; |
#3
|
||||
|
||||
Из темы про DB Grid, делал так не пашет.
|
#4
|
|||
|
|||
в коде приведенном выше нужно это:
Код:
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); Последний раз редактировалось Assistant, 26.02.2011 в 09:16. |
#5
|
||||
|
||||
Нет он тупо (даже без этой процедуры) при нажатии на клавиатуре up/down переходит по списку, но не прокручивает.
|
#6
|
|||
|
|||
дак ты не клавой нажимай, а скроллером крути в области DBLookupComboBox
|