DELPHI禁止窗体移动（转）

通常我们都是用拦截WM_NCHITTEST消息来移动无标题的窗口,介绍这个用法的文章很多,可是用WM_NCHITTEST同样能禁止窗口移动.

  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMNCHITTEST(var Msg: TWMNCHITTEST); message WM_NCHITTEST;


procedure TForm1.WMNCHITTEST(var Msg: TWMNCHITTEST);
begin
  inherited;
  if Msg.Result = HTCAPTION then
    Msg.Result := 0
end;

文章转自：http://www.cnill.com/jibing/lunwen/process/200702/lunwen_50946.shtml