MessageBox("TextBox Valid")to be
MessageBox("TextBox Valid",0,2000)But it makes no difference. The button click doesn't fire.
oForm = CREATEOBJECT("Form1") oForm.Show READ events RETURN DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT text1 AS textbox WITH ; Height = 23, ; Left = 96, ; Top = 48, ; Width = 100, ; Name = "Text1" ADD OBJECT command1 AS commandbutton WITH ; Top = 120, ; Left = 96, ; Height = 27, ; Width = 84, ; Caption = "Command1", ; Name = "Command1" Procedure Destroy Clear Events ENDPROC PROCEDURE text1.Valid MessageBox("TextBox Valid") ENDPROC PROCEDURE command1.Click MESSAGEBOX("button click") ENDPROC ENDDEFINE