SetCaptureControl(Control);<br> while (GetMessage(msg, 0, 0, 0)) do<br> begin<br> TranslateMessage(msg);<br> DispatchMessage(msg);<br> if (msg.Message = WM_MOUSEMOVE) then<br> ...<br> end;