박홍석 께서 말씀하시기를...

> 안녕하세요.

>

> 델파이에서 마우스로 컨트롤을 드래그(마우스 왼쪽버튼으로 누르고있는 상태)하면

> 그 컨트롤의 주변에 회색의 사각형이 표시가 되는데 제가 드래그하는 동안

> 그렇게 하고 싶은데 어떻게 해야할까요?

>

> 실행시에 폼상에 배치된 컨트롤의 위치를 드래그하여 옮기고 싶어서

> 그럽니다.

>

> 아시는 분의 답변 부탁드립니다.

>



Drag되는 Panel 만들기



폼위에 TPanel을 마우스로 이동하는 예제 입니다.

저는 TPanel위에 TImage을 올려놓고 TImage와 같이 이동하게 만들었습니다.



procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

const

SC_DragMove = $F012; {a magic number}

begin

ReleaseCapture;

panel1.perform(WM_SysCommand, SC_DragMove, 0);

end;



사이트 소개 : http://cafe.hanmail.net/delphi/