Código Delphi [-]procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin ScrollBar1.Position := ScrollBar1.Position - (WheelDelta div WHEEL_DELTA); // Handled := True; // Si quieres que el mensaje no pase a ningun componente más. end;
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin ScrollBar1.Position := ScrollBar1.Position - (WheelDelta div WHEEL_DELTA); // Handled := True; // Si quieres que el mensaje no pase a ningun componente más. end;