OK, Delphi ist installiert und es sieht nicht mehr so aufwendig aus...
Laut der Hilfe sollte es ausreichen DoMouseWheel (von TControl geerbt) zu überschreiben:
Delphi-Quellcode:
type
TZeichenBlatt = class(TImage)
protected
function DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
MousePos: TPoint): Boolean; override;
published
property OnMouseWheel;
end;
function TZeichenBlatt.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
MousePos: TPoint): Boolean;
begin
//... hier die Aktionen VOR einem eventuellen OnMouseWheel[Down|Up]
Result := inherited DoMouseWheel(Shift, WheelDelta, MousePos);
//... hier die Aktionen NACH einem eventuellen OnMouseWheel[Down|Up]
end;
Gruss Nico