Control unter dem Mauszeiger ermitteln und Scrollevent an dieses weiterleiten

[himitsu]

Delphi-Quellcode:

procedure TForm1.MessageHandler(var Msg: TMsg; var Handled: Boolean);
var
  Handle: HWND;
begin
  if Msg.message = WM_MOUSEWHEEL then
  begin
    Handle := WindowFromPoint(Msg.pt);
    if (Handle <> 0) and (Handle <> Msg.hwnd) then
    begin
      PostMessage(Handle, WM_MOUSEWHEEL, Msg.wParam, Msg.lParam);
      Handled := True;
    end;
  end;
end;


Application.OnMessage := MessageHandler;

Weniger ist manchmal mehr