SendMessage( ) Nachricht 1:1 weiter senden

[luisk]

Wie kann ich eine Nachricht über SendMessage( ) 1:1 weiter senden ?
  procedure WMMouseWheel(var in_Message: TWMMouseWheel); message WM_MOUSEWHEEL;

Delphi-Quellcode:

procedure TForm1.WMMouseWheel ( var in_Message: TWMMouseWheel );
var  l_mousePos: TPoint;
     l_wc: TWinControl;
begin
     l_mousePos.X := in_Message.XPos;
     l_mousePos.Y := in_Message.YPos;
     l_wc := FindVCLWindow(l_mousePos);

        if l_wc = nil then begin
           in_Message.Result:=1;
        end else if l_wc.Handle <>  in_Message.Msg  then begin
            SendMessage(l_wc.Handle, WM_MOUSEWHEEL, ???, ??? );
            in_Message.Result:=1;
        end;
end;

Wie kann ich in_Message:TWMMouseWheel 1:1 weiter senden, so dass ich die x,y Koordinaten
im unterlagerten WinControl auch empfangen kann ?

Delphi-Quellcode:

    
CL_Panel = class (TPanel)
   procedure WMMouseWheel(var in_Message: TWMMouseWheel); message WM_MOUSEWHEEL;
end;

Delphi-Quellcode:

procedure CL_Panel.WMMouseWheel ( var in_Message: TWMMouseWheel );
var  mousePos: TPoint;
     wc: TWinControl;
begin
   mousePos.X := in_Message.XPos;
   mousePos.Y := in_Message.YPos;
   in_Message.Result:=1;
end;