너무나도 유명한 팁인거 같지만... 다시한번...

버튼의 MouseDown 이벤트에 다음과 같이 하세요..

void __fastcall TForm1::Button1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   ReleaseCapture();
   SendMessage(Button1->Handle, WM_SYSCOMMAND, 0xf012, 0);
}



빌더테스트 님이 쓰신 글 :
: 폼 위에 버튼을 몇개 두구서 사용자가 원하는 위치에 배치해서 사용하도록
:
: 드래그로 옮기게 하구 싶은데 .. 잘 않되는군요
:
: 참고할만한 소스 같은거 없을 까요~~
:
: 그럼