是不是那个设置的问题
简单写几句试了一下,好像没这问题
图片附件: 游客没有浏览图片的权限,请
登录 或
注册
_screen.Visible = .F.
CREATE CURSOR tt (f1 I, f2 I)
FOR i=1 TO 10
INSERT INTO tt VALUES (i, i*2)
ENDFOR
GO TOP
of = CREATEOBJECT("form1")
of.show
READ EVENTS
RETURN
DEFINE CLASS form1 AS Form
AutoCenter = .T.
ShowWindow = 2
ADD OBJECT grid1 as Grid WITH AllowCellSelection=.F.
PROCEDURE Destroy
CLEAR EVENTS
ENDPROC
PROCEDURE grid1.rightclick
myPop()
ENDPROC
ENDDEFINE
FUNCTION myPop()
DEFINE POPUP pop FROM MROW(),MCOL()
DEFINE BAR 1 OF pop PROMPT '复制'
DEFINE BAR 2 OF pop PROMPT '粘贴'
ACTIVATE POPUP pop
DEACTIVATE POPUP pop
RELEASE POPUP pop
ENDFUNC