unit Unit1;

interface

uses

 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

 TForm1 = class(TForm)

 private

 {Private declarations}

  procedure WMNCMOUSEMOVE(var Message: TMessage); message WM_NCMOUSEMOVE;

 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.