Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)

  AW: SendMessage( ) Nachricht 1:1 weiter senden

   
    by luisk, 29. Aug 2014
  Danke, super:
  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;
• Forum: Win32/Win64 API (native code)

  AW: SendMessage( ) Nachricht 1:1 weiter senden

   
    by luisk, 28. Aug 2014
  und wie muss ich SendMessage parametrieren, damit ich den kompletten Record weiter geben kann ?
  SendMessage(l_wc.Handle, WM_MOUSEWHEEL, ???, ??? );
  http://www.florianmarlin.com/wp-content/uploads/2014/05/arroseur-arrose.jpg
• Forum: Win32/Win64 API (native code)

  SendMessage( ) Nachricht 1:1 weiter senden

   
    by luisk, 28. Aug 2014
  Wie kann ich eine Nachricht über SendMessage( ) 1:1 weiter senden ?
  
  procedure WMMouseWheel(var in_Message: TWMMouseWheel); message WM_MOUSEWHEEL;
  
  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;