<html>
  <head>
    <meta content="text/html; charset=windows-1252"
      http-equiv="Content-Type">
  </head>
  <body bgcolor="#FFFFFF" text="#000000">
    <div class="moz-cite-prefix">On 04.11.2015 17:54, Martin Grajcar
      wrote:<br>
    </div>
    <blockquote
cite="mid:CAGsWfGhPb_amoTmxUwjDAyugLdt-uZq7p4r8iE10njJstY1kgg@mail.gmail.com"
      type="cite">
      <div dir="ltr">I'd like to forward a TLMVScroll message to the
        parent component as a workaround for controls preventing parents
        from receiving mouse wheel events (I couldn't find out how to
        let the parents receive them).
        <div><br>
        </div>
        <div>The problem is that the handler is</div>
        <div><br>
        </div>
        <div><font face="monospace, monospace">PROCEDURE
            TWhatever.WMVScroll(VAR Message : TLMVScroll);</font><br>
        </div>
        <div><br>
        </div>
        <div>and I need to put it in</div>
        <div><br>
        </div>
        <div><font face="monospace, monospace">FUNCTION
            SendMessage(HandleWnd: HWND; Msg: Cardinal; WParam: WParam;
            LParam: LParam): LResult;</font><br>
        </div>
        <div><br>
        </div>
        <div>Or am I missing a more suitable procedure? Why is there no</div>
        <div><br>
        </div>
        <div><span style="font-family:monospace,monospace">SendMessage(</span><span
            style="font-family:monospace,monospace">Message :
            TLMVScroll);</span><br>
        </div>
        <br>
        which would do exactly this?</div>
    </blockquote>
    <br>
    There is TControl.WndProc, but don't call it directly if you don't
    know what and why you are doing it.<br>
    <br>
    <blockquote
cite="mid:CAGsWfGhPb_amoTmxUwjDAyugLdt-uZq7p4r8iE10njJstY1kgg@mail.gmail.com"
      type="cite">
      <div dir="ltr">
        <div>My workaround is to scroll manually, like</div>
        <div><br>
        </div>
        <div><font face="monospace, monospace">TScrollingWinControl(Parent).ScrollBy
            (0, ScrollAmount);</font><br>
        </div>
        <div><br>
        </div>
        <div>but this feels stupid as it duplicates the <font
            face="monospace, monospace">ScrollAmount</font> computation.<br>
        </div>
      </div>
    </blockquote>
    <br>
    AFAIK forwarding of messages works only on Windows, so if you need
    it cross-platform, you will have to use
    "TScrollingWinControl(Parent).ScrollBy (0, ScrollAmount);" in any
    case. So this should be the correct way to do it. - Zeljko, correct
    me if I am wrong, you are the specialist here :)<br>
    <br>
    Ondrej<br>
  </body>
</html>