急急急，请问如何实现两个listbox里面item的相互拖放(50分)

请问如何实现两个listbox里面item的相互拖放

如果是可以用控件的话就用dragdrop
www.playicq.com
至于代码的方式，我暂时说不上！你可以参考一下dragdrop的源代码！

dragdrop是属性吧？

DragMode 属性 为 dmAutomatic

在 OnDragOver 和 OnDragDrop 中写代码

不是的！有这么一个控件就叫这个名字啊！很好用的，解决好多拖放方式的！图片url文本……

http://www.delphibbs.com/delphibbs/dispq.asp?lid=2302348
这个是我回复人家的一个旧帖，但处理的是单个listbox的拖放！代码是对的！

给你一个例子
比如窗体上有两个Listbox，下面将Listbox2中的项目拖到ListBox1中
将两个Listbox的DragMode属性设为dmAutomatic.

拖放经过事件
procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if TListBox(Source)=ListBox2 then
Accept:=true;
end;

//拖放落下事件
procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
ListBox1.Items.Add(Listbox2.Items[ListBox2.ItemIndex]);
end;
不过，实际上，用DELPHI新建时，在FORMS那一页中就有一个Dual list box的模板窗口，也是完成相互转换ITEM的，你为什么不直接拿来用呢？？

多人接受答案了。