delphi 怎样使 PANEL 能够 执行 DRAG 动作？

你是想拖动panel还是想拖动panel上的控件如果只是想拖动panel

panel的dragmode为dmAutomatic

dragkind

dkdock

form的docksite为true如果是想拖动上面的控件

panel的docksite为true

控件的dragmode为dmAutomatic

dragkind

dkdock

你要写三个事件 改两个属性就能解决你的问题.

首先,把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了.

多给点分.

---