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!