如何用DELPHI实现京东、卓越等网站的类别选择功能？

Question

  其实也不是要完整实现，我只要能实现：鼠标一靠近菜单就弹出来，离开时自动收紧消失。  目前用popupmenu实现了靠近弹出，可始终无法实现离开关闭，非要在其他地方点击一下才会消失，指点一下...谢谢

Answer 1

离开的时候发送消息WM_CANCELMODE让菜单取消模态显示
因为PopupMenu是使用TrackPopupMenu函数弹出菜单，在TrackPopupMenu后是菜单是模态的，所以会阻塞消息，除非点击其他地方
具体可以参考下：http://www.microsoft.com/msj/0199/c/c0199.aspx

Answer 2

mousemove +
getcursorpos
不行吗？

Answer 3

delphi提供的事件还是不够多、细啊