>BINDEVENT(loControl, "Enabled_Assign", This, "MyMethod")>
* Mode MS-original PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN ************************************************** *-- Form: form1 (d:\all_zapl\test.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 07/18/06 07:42:06 PM * DEFINE CLASS form1 AS form Top = 0 Left = 0 Height = 250 Width = 373 DoCreate = .T. Caption = "Form1" Name = "form1" ADD OBJECT check1 AS checkbox WITH ; Top = 33, ; Left = 30, ; Height = 17, ; Width = 223, ; Alignment = 0, ; Caption = "Click only here", ; Value = .T., ; Name = "Check1" ADD OBJECT check2 AS checkbox WITH ; Top = 66, ; Left = 31, ; Height = 17, ; Width = 198, ; Alignment = 0, ; Caption = "Command Enabled", ; Value = .T., ; Name = "Check2" ADD OBJECT command1 AS commandbutton WITH ; Top = 103, ; Left = 63, ; Height = 27, ; Width = 84, ; Caption = "Command1", ; Name = "Command1" PROCEDURE testassign thisform.Check2.Value = thisform.Command1.Enabled ENDPROC PROCEDURE Init BINDEVENT(thisform.Command1,[Enabled],thisform,[TestAssign],1) ENDPROC PROCEDURE retyrnmyval ENDPROC PROCEDURE check1.Click thisform.Command1.Enabled = this.Value ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************