怎么做鼠标焦点的超级列表框右键复制

聆听震撼

怎么做到像精易那样的，鼠标移动到超级列表框哪里鼠标右键就可以复制鼠标位置的文本！
而且也要像精易那样右键复制后面会显示被复制的文本。

29499531

没地方传源码,我直接贴上来好了.楼主见谅.
整行复制修改至 左键点击表项 事件

主窗体

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .程序集 窗口程序集1
   
5. 
   
6. .子程序 _超级列表框1_鼠标右键被按下, 逻辑型
   
7. .参数 横向位置, 整数型
   
8. .参数 纵向位置, 整数型
   
9. .参数 功能键状态, 整数型
   
10. .局部变量 a, LVHITTESTINFO
    
11. 
    
12. a.x ＝ 横向位置
    
13. a.y ＝ 纵向位置
    
14. SendMessage (超级列表框1.取窗口句柄 (), 4153, 0, a)
    
15. .如果真 (a.行 ＜ 0)
    
16.     返回 ()
    
17. .如果真结束
    
18. 复制.标题 ＝ “复制 ”
    
19. 复制.标题 ＝ 复制.标题 ＋ 超级列表框1.取标题 (a.行, a.列)
    
20. 弹出菜单 (超级列表框, , )
    
21. 
    
22. .子程序 _超级列表框1_左键单击表项
    
23. .局部变量 i, 整数型
    
24. 
    
25. .如果真 (超级列表框1.现行选中项 ≠ -1)
    
26.     .计次循环首 (超级列表框1.取列数 (), i)
    
27.         复制.标题 ＝ 复制.标题 ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, i － 1)
    
28.     .计次循环尾 ()
    
29.     弹出菜单 (超级列表框, , )
    
30. .如果真结束

复制代码

DLL函数

1. .版本 2
   
2. 
   
3. .DLL命令 SendMessage, 整数型, , "SendMessageA"
   
4.     .参数 hWnd, 整数型
   
5.     .参数 Msg, 整数型
   
6.     .参数 wParam, 整数型
   
7.     .参数 lParam, LVHITTESTINFO
   

复制代码

自定义数据

1. .版本 2
   
2. 
   
3. .数据类型 LVHITTESTINFO
   
4.     .成员 x, 整数型
   
5.     .成员 y, 整数型
   
6.     .成员 flags, 整数型
   
7.     .成员 行, 整数型
   
8.     .成员 列, 整数型
   

复制代码

声明一点,任意取行列数是近在眼前的例子,我只是借花献佛.

exit11

找果子要源码

炫舞芭比

{:3_234:}你要的源码  因为上传图片上限了 你下载源码吧绝对一样的 给点币噢
点击进入下载－源码.zip

无名隐女

我{:3_245:}看汇编

聆听震撼

炫舞芭比 发表于 2011-12-20 14:36
你要的源码  因为上传图片上限了 你下载源码吧绝对一样的 给点币噢
点击进入下载－源码.zip

你那个是一行都显示在上面，而且要是表项要是多的话，那不是得累死？