리스트뷰에서 드래그앤 드랍을 하고 있거든요. 그런데 이상하게도...

드래그하지 않고 클릭만 했을 뿐인데도 드래그 모드로 들어가는지

드래그시 생기는 투명한 이미지가 생깁니다.

어떻게 해야할지... 아래는 트리뷰에서 리스트뷰로 드래그앤 드랍을 구현하고자

작성한 코드입니다.

다른 방법으로라도 위와 같은 에러가 생기지 않는 방법을 아시는 분은 꼭좀

알려주세요~~~~~~~~~~~ 제발제발 ^^;

그럼 행복한 하루되세여~~~**



**********************************************************************************

// 리스트뷰에서 마우스 클릭이 일어났을때

procedure THddMain.OnServerFileMouseDown(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer); //

begin

if SListView.Selected <> nil then // 선택된 아이템이 하나라두 있으면 드래그할 때

begin SListView.BeginDrag(False, 25); end;// BeginDrag(True)이면 바로 드래그

end; // BeginDrag(False)이면 마우스를 누르고 움직여야 드래그



//트리뷰에 드래그된 마우스가 놓였을때

procedure THddMain.OnServerFolderDragOver(Sender, Source: TObject; X, //서버측 트리뷰

Y: Integer; State: TDragState; var Accept: Boolean);

begin

Accept := true; //드랍되도록 허용

end;



//드랍되었을때 처리하는 내용

procedure THddMain.OnServerFolderDragDrop(Sender, Source: TObject; X, //서버측 트리뷰

Y: Integer);

begin

else if source = SListView then begin

STreeViewFromSListView(); end;

end;