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;
转载于:https://my.oschina.net/u/582827/blog/338809