移动无标题栏窗口

  procedure WMNChitTest(var Msg:TWMNChitTest);message WM_NCHITTEST;

 

 

procedure TForm13.WMNChitTest(var Msg:TWMNChitTest);
begin
inherited;

if Msg.Result=htClient then//将客户区消息转换成拖动标题时产生的消息
  Msg.Result:=htCaption;

end;