조씨 wrote:

> 리스트박스의 아이템을 다른리스트박스로 드레그엔드롭 할려고하는데...

> 잘안되서....여러고수임들에게 질문드립니다....

>

> 감사합니다.

> 즐거운하루되세요...!!!



안녕하세요..저두 델초보인 어린왕자입니다..



먼저 리스트박스의 DragMode를 dmManual로 설정하신다음..

다음 과정을 거칩니다.

먼저 드래그 시작할때 마우스다운 이벤트를 설정해주고..

드래그 도중의 마우스무브이벤트를 설정해주고..

마지막 드랍할때 이벤트를 설정해 주면 됩니다..



먼저 마우스다운이벤트핸들러에서는 드래그의 시작을 해줘야야 합니다.

그래서 담을 첨가 합니다.

Sender.Begin(false,10);

잠깐 쉬구 드래그를 시작한다는 말입니다..

왜냐하면 클릭하구 구별짓기 위해서..



원형은 아래구요..

procedure BeginDrag(Immediate: Boolean; Threshold: Integer = -1);







다음은 드래그마우스가 지나가는 컴포넌트의 무브이벤트핸들러인데요..

procedure TForm1.ListBox2DragOver(Sender, Source: TObject; X, Y: Integer;

State: TDragState; var Accept: Boolean);

begin

Accept:=true; // ListBox2위에 드랍을 허용한다는 말입니다..

//커서 모양이 false이면 모양이 (금지)표시 표시됩니다.

end;





드랍당할(?) 컴포넌트의 드랍이벤트입니다..

procedure ScrollBox1DragDrop(Sender, Source: TObject; X, Y: Integer);

마우스 무브이벤트에서 Accept:=true가 되면 드랍이 가능해집니다..

그래서

Source에 드랍이 시작된 컴포넌트가 들어가게 됩니다..

그러니깐 여기에서는 ListBox1이 들어가게 되지요..

그래서 Source를 이용해서 드랍 작업을 하면 되구요..

마지막 드랍 엔드 처리를

TControl(Source).EndDrag(true);



아..길다..

저가 초보라서 설명하기가 힘드네요..

이해가 가셨으면 소원이 없겠습니다..^^

그럼 즐코하세요..