Прокрутка выделения Items в Listbox колёсиком мышки

[werrey]

Здравствуйте.
Подскажите пожалуйста, как сделать, чтобы при наведённом курсоре на
Listbox, при прокрутки колесика мышки, перескакивало выделение Items либо вверх, либо вниз соответственно?

[mihali4]

Как прокрутить строки у любого визуального компонента, содержащего списки, например ListBox...

var
M: TWMScroll;
// тут что-то ваше
begin
// и тут что-то ваше
M.Msg := WM_VSCROLL;
M.ScrollCode := SB_BOTTOM;
// и тут что-то ваше
// какой-то цикл
ListBox1.Items.Add(Name);
ListBox1.Dispatch(M);
Application.ProcessMessages;
// конец цикла

[werrey]

Спасибо, а что за "какой-то цикл", и как это всё применить, где это прописывать?
Пробовал в свойствах формы (FormMouseWheel) Ваш код, но не правильно работает.
Если не затруднит,можно чуть по подробнее.

Странно, около года на форуме, а до сих пор не знаете, что такое оверквотинг...
Почитайте правила раздела, там все описано.

[mihali4]

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

Пробовал в свойствах формы (FormMouseWheel) Ваш код, но не правильно работает.

А я исключительно редко даю ответы, которые можно использовать с помощью CTRL-C, CTRL-V. Даю возможность, так сказать, пошевелить мозгами самостоятельно.
Алгоритм "шевеления мозгами" в данном конкретном случае :
- изучаем в хэлпе параметры сообщения WM_VSCROLL (WIN32.HLP)
- обращаем внимание на наиболее подходящие для нас SB_PAGEUP и SB_PAGEDOWN
- на основе приведенного выше кода создаем два обработчика - FormMouseWheelDown и FormMouseWheelUp (отличие у них будет как раз в этих параметрах)
- выкидываем одну явно лишнюю строку
- наслаждаемся результатом...

[phomm]

У листбокса(да и вроде у многих скроллабл компонентов) интересная особенность - без фокуса на них сообщение о скролле (при обычном указании обработчика Onscrollup/down для них) до них не доходит, форма его поглощает, чтобы его сделать можно использовать такую вот прокрутку листбокса

procedure TmainForm.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
var actrl: tcontrol ;
begin
actrl := ControlAtPos(ClientToScreen(MousePos), True, True);
if (actrl <> nil) and (actrl is Tlistbox) then  
    begin
    if actrl.ItemIndex <> 0
      then actrl.ItemIndex := actrl.ItemIndex - 1;
    Handled := false;
    end;
end;