因为 WM_WINDOWPOSCHANGING 在窗口的显示和隐藏时也会产生,<br>如果你只需要处理移动,就可以用 WM_MOVING,<br>用法可以参考如下:<br><br>procedure TForm1.OnWmMoving(var Msg: TMessage);<br>var<br> pr: ^TRect;<br>begin<br> pr := Pointer(Msg.LParam);<br> if pr^.Left < 200 then pr^.Left := 200;<br>end;