Question

delphi新手问题，关于listbox的拖拽

我有一个窗体，上面有个listbox，数个memo

listbox里面有少许数据。

现要实现：

listbox里面的数据拖到哪个memo里面，这个memo.TEXT 就是

memo1.Text:= ListBox1.Items.Strings[ListBox1.ItemIndex];

请问，如何实现
天地惶惶：

OK了…… 俺就30多分 回答了N多问题和投票，终于够了50分给你了

Answer 1

你要写三个事件 改两个属性就能解决你的问题.
首先,把memo,和listbox的dragMode属性改成dmAutomatic

然后 在listbox的onStartDrag事件里写
Self.Tag:= 101; //托拽标识

在memo的onDragOver事件里写
if self.Tag= 101 then //判断托拽到memo里的是否从listbox来
Accept:= true; //允许托拽
在memo的onDragDrop事件里写
Memo1.Lines.Add(ListBox1.SelectedItem); //赋值
就okay了.
多给点分.

Answer 2

比较难，主要是拖动效果。如果不是拖动换其他方式的话我可以回答。也比较简单。并不是做不到，只是太麻烦了。现在没时间弄DELPHI了。