>Using VFP 8 RTM. You can BINDEVENT to _screen.ActiveForm but not to _screen.ActiveForm.ActiveControl. Here is code to reproduce this, just change the value of llTest to .F. to get the error. Why is this? Anyone know how to get this to work so the second form comes up when you RightClick on an object in the first form? This has to be done in this context because the first form has to be running [DO FORM] and not being edited [MODIFY FORM]. The reason is to use a builder [the 2nd form] to dynamically set properties for the object that was RightClicked on the running form. A reference to the object on the first form is also needed by the second form. TIA!

>LOCAL llTest1
>llTest1 = .T.
>PRIVATE oForm1, oForm2, oTranslate
>oForm1 = CREATEOBJECT('frmRunningForm')
>oForm2 = CREATEOBJECT('frmTranslator')
>oTranslate = CREATEOBJECT('Translate')
>oForm1.Show()
>IF llTest1
>   BINDEVENT(_screen.ActiveForm, [RightClick], oTranslate, [DoForm])
>ELSE
>   BINDEVENT(_screen.ActiveForm.ActiveControl, [RightClick], oTranslate, [DoForm])
>ENDIF
>READ EVENTS
>oForm1 = .null.
>oForm2 = .null.
>oTranslate = .null.
>RETURN
>
>DEFINE CLASS Translate AS Custom
>   PROCEDURE DoForm
>      oForm2.Show()
>   ENDPROC
>ENDDEFINE
>DEFINE CLASS frmRunningForm AS form
>
>   Caption = "Running Form"
>   Name = "frmRunningForm"
>   Top = 0
>   Left = 0
>
>   ADD OBJECT label1 AS label WITH ;
>      AutoSize = .T., ;
>      Caption = "RightClick on This Label", ;
>      Height = 17, ;
>      Left = 84, ;
>      Top = 45, ;
>      Width = 136, ;
>      TabIndex = 1, ;
>      Name = "Label1"
>
>   ADD OBJECT cmdExit AS commandbutton WITH ;
>      Top = 121, ;
>      Left = 80, ;
>      Height = 27, ;
>      Width = 84, ;
>      Caption = "Exit", ;
>      TabIndex = 3, ;
>      Name = "cmdExit"
>
>   ADD OBJECT text1 AS textbox WITH ;
>      Height = 23, ;
>      Left = 94, ;
>      TabIndex = 2, ;
>      Top = 75, ;
>      Width = 100, ;
>      Name = "Text1"
>
>   PROCEDURE cmdExit.Click
>      THISFORM.Release()
>   ENDPROC
>   PROCEDURE Destroy
>      CLEAR EVENTS
>   ENDPROC
>ENDDEFINE
>DEFINE CLASS frmTranslator AS form
>
>   Caption = "Translator Form"
>   Name = "frmTranslator"
>   AutoCenter = .T.
>
>   ADD OBJECT cmdExit AS commandbutton WITH ;
>      Top = 139, ;
>      Left = 154, ;
>      Height = 27, ;
>      Width = 84, ;
>      Default = .T., ;
>      Caption = "Exit", ;
>      Name = "cmdExit"
>
>   PROCEDURE cmdExit.Click
>      THISFORM.Release()
>   ENDPROC
>ENDDEFINE

Mark,

I was only able to reference the .ActiveControl as an object much later on. I put the BINDEVENT in the Form's MOUSEMOVE event (setting a flag to know if I had already done it or not). It seems that .ActiveControl doesn't exist at any point along the normal LISAG events until you've hit the READ EVENTS.