VFP9可以试下:
程序代码:
oTitle = CREATEOBJECT("MyTitle")
oForm = CREATEOBJECT("Form")
BINDEVENT(oForm.hWnd, 0x00A3, oTitle, "_Title")
oForm.Show(1)
RELEASE oForm, oTitle
RETURN
DEFINE CLASS MyTitle AS Session
PROCEDURE _Title(hWnd, Msg, wParam, lParam)
? "双击标题事件"
ENDPROC
ENDDEFINE