ListView怎样实现拖拽功能？(20分)

C

chinahx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #1

我不知道ListView的哪个事件中实现托拽功能。
我的程序中有两个listview控件，我想要的结果是：
listview1（部门）、listview2（工作人员）
他们两个可以相互拖拽，并且达到某一个员工脱离此部门。

请帮忙，谢谢。

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #2

ondropdown
ondropover

 

C

chinahx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #3

没有 ondropdown事件。
我在ondropover 中作如下试验，为什么没有反映，请告诉我，谢谢。
procedure TfmSystemManagement.lvEmployeesDragOver(Sender, Source: TObject;
X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
showmessage('dragover');
end;

 

C

chinahx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #4

why?是不是很简单？

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #5

是ondragdrop事件。
1，把控件本身的dragmode属性设为dm automatic。
2，在ondragover事件中，把accept 设为true。
3，在ondragdrop事件安排你的具体算法，

 

C

chinahx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #6

2，在ondragover事件中，把accept 设为true。
他没有这个属性，不是吗？
我没有找到。

请问 ondragdrop事件事什么条件下触发？

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #7

accept是ondragover事件处理程序中的一个局部变量！

 

C

chinahx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-28

• #8

哦，我终于懂了，ondragdrop事件是别的东西拖过来时候触发的。
我笨啊。
谢谢！～～～～