>폼 위에 만들어진 버튼을 드래그 앤 드롭으로 다른 위치에 옮기는 방법이 있으면 배우고 싶어요.
>
>또한,
>
>Memo1에 입력한 텍스트 여러 줄 중에 한 줄을  Memo2에 옮겨놓기하는 방법이 있을까요?
>
>Memo1에서는 위와 같은 기능구사가 복잡하니 다른 오브젝트를 이용해서 구현하는 것이 좋을까요?
>
>ㅋ 왕초보가 요즘 시간표짜는 프로그램 만드는 중인데 궁금해져서 연구중에 질문 올려봅니다. ㅋ
>
>
>
>
>
>

MouseDown ,  MouseMove 이벤트로 이동 가능해요..

procedure TTEST010F1.btn1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    ReleaseCapture;
    SendMessage(btn1.Handle, WM_SYSCOMMAND, 61458, 0);
end;

procedure TTEST010F1.btn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    btn1.Cursor  := crHandPoint;
end;