怎么在表单下获取鼠标右键点击位置的坐标

如何在表单上获取鼠标右键点击位置的坐标？
具体点说：
表单---任意位置--点击鼠标右键--弹出窗口--显示X=?,Y=?,并把数据写到库里！
实在不行，捕捉左键也行啊

------解决方案--------------------------------------------------------
表单 mouseup 事件中写代码：

LPARAMETERS nButton, nShift, nXCoord, nYCoord
if nButton == 2
messagebox(transform(nXCoord)+ ',' + transform(nYCoord))
endif

写入表就自己去倒腾吧