VFP 愛用者社區

Batman · 註冊時間: 2003-11-15 文章: 348 第 1 樓

如題, 謝覆

garfield · 發表於: 星期二一月 15, 2013 11:12 pm 文章主題:

mytest = CREATEOBJECT('testmouse')

BINDEVENT(_screen,'Mousemove',mytest,'Mousemove')

mytest.show
READ events

DEFINE CLASS testmouse as Form
width=300
height=200
top=0
left=0
caption ="test bindevent _screen.mousemove"
*docreate = .t.
PROCEDURE Mousemove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
WAIT windows STR(nXCoord)+STR(nYCoord) nowait
ENDPROC

PROCEDURE Destroy
CLEAR EVENTS
endproc
ENDDEFINE

Batman · 註冊時間: 2003-11-15 文章: 348 第 3 樓

謝謝Garfield回覆, 試一下, thanks