WM_MOUSEMOVE:
    begin
      t_MouseEvent.cbSize := SizeOf(TTrackMouseEvent);
      t_MouseEvent.hwndTrack := Control.Handle;
      t_MouseEvent.dwFlags := TME_LEAVE; 
      TrackMouseEvent(t_MouseEvent);

      Ms.X := LoWord(Msg.lParam);
      Ms.Y := HiWord(Msg.lParam); 

      if not InitMouseHover then
      begin
        GetCursorPos(pt);
        GetWindowRect(Control.Handle, rc);
        if PtInRect(rc, pt) then
          Sendmessage(Control.Handle, US_HINTMOUSEHOVER, 0, 0);
        InitMouseHover := true;
      end;
      if Assigned(_prop_HintManager)then
      begin
        if {$ifdef F_P}boolean{$endif}(_prop_HintManager.gethtreck) then
        begin
          if (Ms.X <> oldX) or (Ms.Y <> oldY) then
          begin
            oldX := Ms.X;
            oldY := Ms.Y;
            _prop_HintManager.move(hid, Ms.X, Ms.Y);
          end;
        end;
      end;

      case Msg.wParam of
        1:   b :=  0;
        2:   b :=  1;
        16:  b :=  2;
        else b := -1;
      end;
      Sendmessage(Control.Handle,US_MOUSEMOVE, 0, b);
    end;