MouseMove Code der Klasse überschreiben

[Bjoerk]

Ich habe eine Klasse TsgDrawingNavigator = class(TCustomControl). TsgDrawingNavigator überschreibt:

Delphi-Quellcode:

protected
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
    procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;

TsgDrawingNavigator führt darin umfangreichen Code aus. Z.B. Zoomen ins Auswahlrechteck ect.. Diesen Code möchte ich aber nicht immer nutzen. Desweiteren sind noch die entsprechen Ereignisse veröffentlicht:

Delphi-Quellcode:

  published
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;

Hierin kann man zustzlichen Code ausführen. Meine Frage ist, wie kann eine Instanz von TsgDrawingNavigator diese Ereignisse von TsgDrawingNavigator überschreiben, also NICHT den Code der Klasse ausführen sondern "OwnerCode"? Verständlich?