如何让鼠标拖动到form上时，自动弹出一个ListBox来？(40分)

H

*HelloWorld*

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #1

我想实现这样的效果：做一个很小的form，单鼠标拖动其它程序中的一段文本到它上面时，
自动弹出一个ListBox来，让鼠标选择其中的一项，放下，完成后续动作。
请问：这样的弹出式ListBox(或者Popup菜单？)应该怎样做？谢谢!

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #2

新建一个Form，在Form上放上ListBox。
拖动的例子搜索一下。

 

D

dingbaosheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #3

ListBox 设为隐藏 检测到有鼠标拖动事件发生时 使之显示就OK了

 

S

sw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #4

to *HelloWorld* :
你要实现的功能很象网络蚂蚁中的拖放添加任务的功能
将其他程序中的一段文字拖过来，可以用拖放操作的定级控件DragAndDrop，它的老家是
http://www.melander.dk，下载时尽量用3.7版本，因为那个最新的4.x控件还在测试阶段，
我试过，不太稳定。如果不想用第三方控件，也可以自己拦截系统消息，参考这个帖子：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=108049
至于弹出一个ListBox，这个比较容易，你另建一个Form，无边界，且只容纳下一个ListBox......

好了，就这样吧

 

H

*HelloWorld*

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-22

• #5

谢谢上面几位的帮助!其实我也是想通过ListBox的显示与隐藏来实现这个效果，但是在具体
操作的时候遇到了问题。可能是我对拖放操作的具体细节还没弄懂吧，我总是想让form1在
OnDragOver的时候显示ListBox，但是不论我怎么拖到文字到form1上面，它就是没反应。哪
位行行好帮小弟写一段代码示范一下好吗？如果分不够我还可以再加，如果真的能行的话把
我剩下的那点分都拿出来都行!

 

O

oliver99

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-09

• #6

我也想知道这个问题的解决办法，楼主你搞定了吗？
告诉我一声吧
ccx.djb@163.com

 

N

nibul

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-09

• #7

是拖动文字吗？