Hab grad einfach mal vesucht die Mousewheelmessage abzufangen und hat geklappt
Delphi-Quellcode:
type
TOwnImg = class(TImage)
private
procedure FOnMouseWheel(var AMsg: TWMMouseWheel); message WM_MOUSEWHEEL;
end;
[...]
procedure TOwnImg.FOnMouseWheel(var AMsg: TWMMouseWheel);
begin
//das was passieren soll wenns mousewheel betätigt wird
end;