Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Прокрутка ListBox колесиком мыши

Автор: Matematik 20.11.2007, 17:32

Привет.
Как сделать чтобы работала прокрутка listbox колесиком мыши?
У listbox
Style=lbVirtualOwnerDraw
и
Count>=65535

Автор: ama_kid 20.11.2007, 22:31

Ну примерно как-то так:

Код

  TMyListBox=class(TListBox)
   private
    procedure WMMouseWheel(var Mes: TWMMouseWheel); message WM_MOUSEWHEEL;
  end;
...
procedure TMyListBox.WMMouseWheel(var Mes: TWMMouseWheel);
begin
 if Mes.WheelDelta>0 then
  Self.ScrollBy(0,Self.ItemHeight)
 else
  Self.ScrollBy(0,-Self.ItemHeight);
end;

Логику там конечно надо будет подкрутить, я написал навскидку, главное - что колесико работать должно...