꼼지락 님이 쓰신 글 :
: 윈도우 타입은 bsnone 입니다..
:
: 판넬을 하나 만들었구요.. TImage를 2개, Button 2개를 만들어서
:
: Title bar와 같이생긴 윈도우를 만들었습니다. 물론 색도 넣었구요..
:
: 마지막으로 이 판넬을 정말 윈도우처럼 이동을 시켜야 하는데..
:
: 도무지 도무지. 할수가 없네여.. 제가 너무 초보인건 사실이지만..
:
: 어떻게 해야하나요.. 알려주세요~ ㅠㅠ
:

패널의 MouseDown이벤트에서 다음의 코드를 입력하세요..
그럼 폼이 이동할 겁니다.

void __fastcall TForm1::Panel1MouseDown(TObject *Sender,TMouseButton Button, TShiftState hift, int X, int Y)
{
  ReleaseCapture();
  DefWindowProc(Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
}

그럼...