Detect the mouse position over your form

 

Add this line in the private part of the form to capture the message :

 

      Procedure WMNCMOUSEMOVE ( Var Message : TMessage ) ;

      Message WM_NCMOUSEMOVE ;

 

And the procedure in the implementation :

 

Procedure TForm1.WMNCMOUSEMOVE ( Var Message : TMessage ) ;

Var

   s           : String ;

Begin

   Case Message.wParam Of

      HTERROR : s := 'HTERROR' ;

      HTTRANSPARENT : s := 'HTTRANSPARENT' ;

      HTNOWHERE : s := 'HTNOWHERE' ;

      HTCLOSE : s := 'HTCLOSE' ;

      HTHELP : s := 'HTHELP' ;

      HTCLIENT : s := 'HTCLIENT' ;

      HTCAPTION : s := 'HTCAPTION' ;

      HTSYSMENU : s := 'HTSYSMENU' ;

      HTSIZE : s := 'HTSIZE' ;

      HTMENU : s := 'HTMENU' ;

      HTBOTTOMLEFT : s := 'HTBOTTOMLEFT' ;

      HTBOTTOMRIGHT : s := 'HTBOTTOMRIGHT' ;

      HTHSCROLL : s := 'HTHSCROLL' ;

      HTVSCROLL : s := 'HTVSCROLL' ;

      HTMINBUTTON : s := 'HTMINBUTTON' ;

      HTMAXBUTTON : s := 'HTMAXBUTTON' ;

      HTTOP : s := 'HTTOP' ;

      HTTOPLEFT : s := 'HTTOPLEFT' ;

      HTTOPRIGHT : s := 'HTTOPRIGHT' ;

      HTLEFT : s := 'HTLEFT' ;

      HTRIGHT : s := 'HTRIGHT' ;

      HTBOTTOM : s := 'HTBOTTOM' ;

      HTBORDER : s := 'HTBORDER' ;

      HTOBJECT : s := 'HTOBJECT' ;

   Else

      s := '' ;

   End ;

   Form1.Caption := s ;

   Message.Result := 0 ;

End ;