델파이만세 님이 쓰신 글 :
: 몇 가지 방법이 있겠지만 WM_MOVE를 이용하시는 것이 편할 겁니다.
:
:   TForm1 = class(TForm)
:     procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
:       Y: Integer);
:   private
:     procedure WMMove(var msg:TWMMove);    message WM_MOVE;      ///<----------------
:   public
:     { Public declarations }
:   end;
:
:
: procedure TForm1.WMMove(var msg: TWMMove);
: begin
:   inherited;
:
:   Caption :=Format('x=%d, y=%d',[msg.xPos,msg.yPos]);         ///<------------------
: end;
:
:
: 아주 잘 작동합니다. 그럼...
: