加入触发问题
&& TEST.PRG
DEFINE CLASS myhandler AS Session
PROCEDURE MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord
MESSAGEBOX(OHANDLER.NAME) &&ok
&&我想
MESSAGEBOX(THISFORM.NAME)
DO FORM D:\RAYC\FORMS\MYQM.SCX WITH nXCoord, nYCoord,THIS
ENDPROC
ENDDEFINE

[解决办法]
MESSAGEBOX(THISFORM.NAME)

改为

MESSAGEBOX(THISFORM.ACTIVECONTROL.NAME)

试试