김현우 님이 쓰신 글 :
: 제가 아래와 같이 프로그램을 구성해서요 Panel1 에 정사각형을 만들었는데요..
: 이 만들어진 정사각형을 Panel1 안에서  드래그 할 수 있게 하려면 어떻게 해야하나요. 제가 많이 몰라서요 ㅠㅠ
: 현재 방법을 찾고 있는 중입니다.
:
: void __fastcall TForm1::Button3Click(TObject *Sender)
: {
:        TCanvas *Canvas = new TCanvas;
:         HDC hdc;
:         hdc = NULL;
:
:         hdc = GetDC(Panel1->Handle);
:         Canvas -> Handle = hdc;              
:         Canvas -> Pen -> Width = 1;
:         Canvas -> Pen -> Color = clRed;
:         Canvas -> Pen -> Style = psSolid;
:         Canvas -> Brush -> Style = bsClear;
:
:         Canvas -> Rectangle(145 ,145 ,295 ,295);
:        
:         ReleaseDC(Handle,hdc);
:
:         delete Canvas;
: }
:
: 감사합니다.

TPanel에는 MouseDown, MouseMove,MouseUp이라는 이벤트가 있습니다. 이이벤트들을 잘 활용해서
사각형내부에서 마우스를 클릭한채로 이동시에 마우스 이동거리만큼 계속 사각형을 이동시켜 그린다고
생각하시면 쉬울듯하네요