SendMessage( ) Nachricht 1:1 weiter senden

[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;