Hola FideRosado.
Cita:
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:
Cita:
Empezado por ecfisa
|
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