Параллельная прокрутка двух CheckListBox

← →
[i2e] (2008-09-18 13:15) [0]

И уж совсем была наша победа, но оказалось, что по колесу мышки прокрутка выполняется только там, куда наведен фокус. И никакие из событий по прокрутке колеса отловить не смог (равно как и по нажатию кнопки вверх/вниз в компоненте).
Вопрос, вроде, простой, но целый день убил - и без толку.
Как можно отловить прокрутку?

← →
clickmaker © (2008-09-18 13:18) [1]

> И никакие из событий

WM_VSCROLL?

← →
oldman © (2008-09-18 13:19) [2]

Когда-то давно мне подсказали:

"Кидаем на форму ApplicationEvents и в его OnMessage пишем:

Begin
If Msg.message = WM_MOUSEWHEEL then"

← →
[i2e] (2008-09-18 13:53) [3]

на форму кинул, написал.
и на WM_VSCROLL, и на WM_MOUSEWHEEL выдается "Undeclared identifier".
чего-то не так делаю, но читание help не помогло.
я его не описал? или что?

← →
clickmaker © (2008-09-18 13:56) [4]

> [3] [i2e] (18.09.08 13:53)
> на форму кинул, написал.

подмени оконную процедуру WindowProc у первого листбокса.
В ней лови WM_VSCROLL, пересылай второму.
В конце не забудь вызвать сохраненную оригинальную WindowProc

← →
Германн © (2008-09-18 14:23) [5]

> [i2e] (18.09.08 13:53) [3]

uses Messages

Хотя с учетом

> чего-то не так делаю, но читание help не помогло.
> я его не описал? или что?

боюсь не поможет. Базовых знаний слишком мало.

← →
[i2e] (2008-09-18 14:30) [6]

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

← →
[i2e] (2008-09-18 16:02) [7]

Получилось! Итого:

1) Кидаем на форму ApplicationEvents
2) Добавляем в uses

uses ..., Messages,...

3) и в OnMessage от ApplicationEvents пишем:

procedure TParamDlg.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin if Msg.message = WM_MOUSEWHEEL then begin ... // отловили колесо и отрабатываем end; end;

Но WM_VSCROLL на колесо мыши не отловилось.
Благодарю за ценную помощь.

← →
KilkennyCat © (2008-09-18 16:07) [8]

> Но WM_VSCROLL на колесо мыши не отловилось.

оно (колесо) должно было закрутиться? :)

> и на WM_VSCROLL, и на WM_MOUSEWHEEL выдается "Undeclared identifier".
> я его не описал?

Ну... мозги все-таки работают. Это радует.

← →
Smile (2008-09-18 17:05) [10]

> [i2e] (18.09.08 13:15)
Попробуй взять здесь:
http://denisov.i2x2.ru/delphi/Units/SListBox.rar
Сайт старый, давно не обновляется, но кое-что для "начинающих" там есть:)

← →
[i2e] (2008-09-19 07:20) [11]

>[10]
хороший сайт. есть полезности. кое что сдул.
а "проблема" уже работает, как описано выше в [7].

Параллельная прокрутка двух CheckListBox Найти похожие ветки