禁用鼠标

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;