SendMessage( ) Nachricht 1:1 weiter senden

[luisk]

Wie kann ich eine Nachricht über SendMessage( ) 1:1 weiter senden ?

Delphi-Quellcode:

  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;

[OlafSt]

in_Message.Result NICHT auf 1 setzen.

[luisk]

und wie muss ich SendMessage parametrieren, damit ich den kompletten Record weiter geben kann ?

Delphi-Quellcode:

SendMessage(l_wc.Handle, WM_MOUSEWHEEL, ???, ??? );

http://www.florianmarlin.com/wp-cont...eur-arrose.jpg

[DeddyH]

Vielleicht so?

Delphi-Quellcode:

procedure CL_Panel.WMMouseWheel(var in_Message: TWMMouseWheel);
var
  Msg: TMessage;
begin
  Msg := TMessage(in_Message);
  SendMessage(l_wc.Handle, Msg.Msg, Msg.WParam, Msg.LParam);
end;

[luisk]

Danke, super:

Delphi-Quellcode:

procedure CL_Panel.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);
   SendMessage(l_wc.Handle, TMessage(in_Message).Msg, TMessage(in_Message).WParam, TMessage(in_Message).LParam );
end;