unit Unit1; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; 
 
type 
  TForm1 = class(TForm) 
  private 
     procedure WMNCMOUSEMOVE(var Message: TMessage); 
       message WM_NCMOUSEMOVE; 
   { Private declarations } 
  public 
   { Public declarations } 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
 
{$R *.DFM} 
 
procedure TForm1.WMNCMOUSEMOVE(var Message: TMessage); 
var 
  s : string; 
begin 
  case Message.wParam of 
   HTERROR : s := 'HTERROR'; 
   HTTRANSPARENT : s := 'HTTRANSPARENT'; 
   HTNOWHERE : s := 'HTNOWHERE'; 
   HTCLIENT : s := 'HTCLIENT'; 
   HTCAPTION : s := 'HTCAPTION'; 
   HTSYSMENU : s := 'HTSYSMENU'; 
   HTSIZE : s := 'HTSIZE'; 
   HTMENU : s := 'HTMENU'; 
   HTHSCROLL : s := 'HTHSCROLL'; 
   HTVSCROLL : s := 'HTVSCROLL'; 
   HTMINBUTTON : s := 'HTMINBUTTON'; 
   HTMAXBUTTON : s := 'HTMAXBUTTON'; 
   HTLEFT : s := 'HTLEFT'; 
   HTRIGHT : s := 'HTRIGHT'; 
   HTTOP : s := 'HTTOP'; 
   HTTOPLEFT : s := 'HTTOPLEFT'; 
   HTTOPRIGHT : s := 'HTTOPRIGHT'; 
   HTBOTTOM : s := 'HTBOTTOM'; 
   HTBOTTOMLEFT : s := 'HTBOTTOMLEFT'; 
   HTBOTTOMRIGHT : s := 'HTBOTTOMRIGHT'; 
   HTBORDER : s := 'HTBORDER'; 
   HTOBJECT : s := 'HTOBJECT'; 
   HTCLOSE : s := 'HTCLOSE'; 
   HTHELP : s := 'HTHELP'; 
   else s := ''; 
 end; 
 Form1.Caption := s; 
 Message.Result := 0; 
end; 
 
end.