在组件中重载MouseMove()就行了
protected
   procedure MouseDown(Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);override;procedure TImageVetricalScrollBar .MouseDown(Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
begin
   //////
   Inherited;
end;