移动窗体时,如何实时行到窗体的位置

procedure   Tfrm_Design.WMNCHitTest(var   Msg:   TMessage);  
  begin  
      Caption:=IntToStr(Self.Left);  
      inherited;  
  end;  
   
  获得了WM_NCHITTEST消息,但只是在移动结束后才行到,想在移动的过程中实时得到位置,应该用什么消息???

procedure   OnMoving(var   Msg:   TWMMoving);   message   WM_MOVING;  
   
  ..........  
   
  procedure   TFormDemo.OnMoving(var   Msg:   TWMMoving);  
  begin  
      Caption   :=   IntToStr(msg.lpRect^.Left);  
      inherited;  
  end;

更详细的内容（上下左右）  
   
  Caption   :=   IntToStr(msg.lpRect^.Left)+':'+  
                        IntToStr(msg.lpRect^.Top)+':'+  
                        IntToStr(msg.lpRect^.Right)+':'+  
                        IntToStr(msg.lpRect^.Bottom);

[新闻]Google iPhone语音识别程序已经上线
博客园首页 社区 新闻频道 小组 博问 网摘 闪存