procedure TFormMain.scrlbx1MouseActivate(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y, HitTest: Integer; var MouseActivate: TMouseActivate); begin if x+30 > scrlbx1.ClientWidth then MouseActivate := maActivateAndEat; end;
原文：http://my.oschina.net/u/582827/blog/338809