Scroll en componente TScrollBox

[ecfisa]

Hola FideRosado.

Empezado por FideRosado

que estas hablando me parece que en el ejemplo no se usan listbox solo scrollbox,, me vas a confundir ...

Si recordas, este código parte de:

Empezado por ecfisa

Hola FideRosado.

Revisa este enlace: Ratón arriba, ratón abajo, ratón arriba...
...

Que trata una rutina para el manejo de la rueda del mouse lo suficientemente amplia para ser aplicada a distintos controles. Lo que implica detectar previamente el control donde se halla posicionado el mouse.


Si hubieras especificado que se aplicaría solamente a un ScrollBox de un form, te hubiera dado una respuesta mucho mas simple:

Código Delphi [-]
procedure TForm1.MouseWheel(var Msg: tagMSG; var Handled: Boolean);
var
  i: ShortInt;
begin
  if PtInRect(BoundsRect, Mouse.CursorPos) then
  begin
    i := HiWord(Msg.wParam);
    if Msg.message = WM_MOUSEWHEEL then
      with ScrollBox1.VertScrollBar do
        if i > 0 then
          Position:= Position - Increment
        else
          Position:= Position + Increment;
  end;
  Handled := False;
end;

Ya que en este caso no interesa en que parte del form se encuentre el cursor del mouse, el ScrollBox es el único que debe realizar la acción.

Saludos