Scroll у стандартного ListBox

[Alprog]

Возникла проблема со стандартными ListBox'ами. Их у меня несколько на форме и хочется, чтобы при скроле одного скролились остальные.
Проблема возникает, когда пользователь начинает скролить колёсиком мыши.

Соответственно, появляются вопросы:

1. Можно ли запретить скролл колёсиком?
2. Можно ли отловить скролл колёсиком?
3. Можно ли считать (установить) текущее положения скролла?
4. Есть ли какой-нибудь стандартный компонент, вроде ListBox, но не скролящийся колесом?

[Хакер]

1. В идеале, тем кто делает свои контроллы и забывает об обработке скролла, надо отрывать руки. А тут автор наоборот хочет лишить контролл, у которого есть обратка колесика, этого замечательного качества.
Можно, но категорически не нужно.

2. Да, сабклассинг на предмет WM_MOUSEWHEEL.
3. Да, GetScrollInfo, SetScrollInfo, GetScrollPos и структура SCROLLINFO поможет тебе.
4. Нет.

Но есть мнение, что раз тебе надо скроллить два столбика одновременно, то возможно тебе нужен ListView, нежели кривой вариант с несколькими ListBox-ами и их синхронном скролле.

[iGrok]

2. Да, сабклассинг на предмет WM_MOUSEWHEEL.

Я вот тоже сходу подумал о сабклассинге, и даже собирался об этом написать, но в упор не вижу у ListBox'а HWND..

UPD:
Всё, нашёл. )
На всякий случай:

Код: Выделить всё

Private Declare Function GetFocus Lib "user32" () As Long
...
ListBox.SetFocus()
ListBoxHWND = GetFocus()
...


UPD: После ответа Хакера. Всё у него есть. Это я ступил. )

[Хакер]

Что за ерунда?

Есть у него свойство hWnd.

[Alprog]

2. Да, сабклассинг на предмет WM_MOUSEWHEEL.
3. Да, GetScrollInfo, SetScrollInfo, GetScrollPos и структура SCROLLINFO поможет тебе.

Спасибо, будем гуглить.

Но есть мнение, (...) тебе нужен ListView

ListView1 - это компонент, имитирующий что-то вроде рабочего стола. Я чего-то не понимаю?

[Хакер]

Открой диспетчер задач и посмотри на список процессов.

[iGrok]

Что за ерунда?

Есть у него свойство hWnd.

Хм. Действительно. Нифига не понимаю. Утром три раза открывал студию, и три раза не нашёл у него hWnd..
Совсем слепой стал, похоже..

[pronto]

Явная "перегрузка" понятий. ListBox - это общее название используемого контрола. List1, List2 и т.д. - имена этих контролов, присваемые по умолчанию. Чтобы получить доспут к свойству контрола нужно обратится по его имени, то есть List1.hWnd. ListView - это тоже контрол, но чуть более продвинутый по сравнению с ListBox'ом.

[alibek]

Их у меня несколько на форме и хочется, чтобы при скроле одного скролились остальные.

TopIndex тебе поможет.

[Alprog]

TopIndex тебе поможет.

Пасиба.

Я понамутил с GetScrollPos и SendMassageA, а тут всё так просто оказывается.