안녕 하세요?

BacTeria 박종민 입니다.

음... 실행중인 컨트롤을 이동하는 방법이라...

다음의 소스가 큰 도움이 될꺼라 생각합니다.

--------------------------------------------------------------
var
  Pos: TPoint;
begin
  ReleaseCapture;
  GetCursorPos(Pos);
  SendMessage(WindowFromPoint(Pos), WM_SYSCOMMAND, $F012, 0);
end;
---------------------------------------------------------------

위의 코드를 폼 위의 모든 컨트롤의 OnMouseDown 이벤트에 지정하세요.

그러면 현재 지정된 컨트롤은 짜잔~ 이동을 할 수 있게 되죠~ 히!

이 코드를 응용 하면 윈도우 전체에 대해서도 지정 할 수 있겠죠?

이만...

청주에서 박종민...