Hamsterlaufrad ääh Mauslaufrad

[Skiron]

Delphi-Quellcode:

...
protected
  procedure MeinVerstecktesOnMouseWheel(...)
  fOnMouseWheel: ...
published
  property OnMouseWheel: ...

constructor TZeichenBlatt.Create(...)
begin
  inherited OnMouseWheel := MeinVersteckesOnMouseWheel;
end;

procedure MeinVersteckesOnMouseWheel(...)
begin
  if assigned(OnMouseWheel) then
    fOnMouseWheel(...);
end;

Is etwas komisch geschrieben, aber hier die Erklärung:
du überschreibst zwar das alte OnMouseWheel, kannst es aber noch mit inherited ansprechen!
In deinem OnMouseWheel musst du halt noch eventuell das von Benutzer verwendete OnMouseWheel aufrufen!