Declare SHORT GetCursorPos In user32 String @
POINTAPI=Replicate(Chr(0),8)
GetCursorPos(@POINTAPI)
xPos=CToBin(Substr(POINTAPI,1,4),'4rs')
YPos=CToBin(Substr(POINTAPI,5,4),'4rs')
oForm=Iif(Type([_vfp.ActiveForm])=[O],_vfp.ActiveForm,_Screen)
yRate=oForm.Height/Wrows()
xRate=oForm.Width/Wcols()
Wait Window "("+Transform(xPos)+","+Transform(yPos)+")这里显示" At yPos/yRate,xPos/xRate