procedure TForm1.OnNChittest(var msg: TMessage);
var
        pt: TPoint;
        rect: RECT ;
begin
        pt.x:=LOWORD(msg.LParam);
        pt.y:=HIWORD(msg.LParam);
        SetRect(rect,0,0,Form1.ClientWidth,Form1.ClientHeight);
        if PtInRect(rect,pt) then
                msg.Result := HTCAPTION
        else
                inherited;
end;哪里有错啊~~~~