Hi Nancy,
I'm sorry, you replied while I was updating my message. Re-read it again, please. And I think I know why I didn't see messagebox. It is probably error handler was in effect which ate the error "function is not defined"... Or something similar happened...
>Nadya-
>
>>I believe you may be mistaken. It does have to do with SET NOTIFY. In my test form I have different behavior depending on this setting. I just dropped my class on the form and one regular textbox class. In the form's load I tried SET NOTIFY ON. In this case I see my error message (which is now wait window). If I put SET NOTIFY OFF, I do not see messagebox, but the focus stays in the control.
>
>Try it with Fox native base classes. I just tried it and SET Notify doesn't affect the wait window. Code is below.
>
>BTW, using the word Messagebox when you mean wait window is confusing since it's a function.
>
>Public oform1
>
>oform1=Newobject("form1")
>oform1.Show
>Return
>
>Define Class form1 As Form
>
> Name = "Form1"
>
> Add Object check1 As Checkbox With ;
> Top = 50, ;
> Left = 39, ;
> Height = 17, ;
> Width = 161, ;
> Caption = "Set Notify On", ;
> Value = ( Set('notify') = "ON"), ;
> Name = "Check1"
>
>
> Add Object command1 As CommandButton With ;
> Top = 112, ;
> Left = 53, ;
> Height = 27, ;
> Width = 84, ;
> Caption = "Wait window", ;
> Name = "Command1"
>
>
> Add Object text1 As TextBox With ;
> ControlSource = " (Set('Notify'))", ;
> Height = 23, ;
> Left = 196, ;
> Top = 17, ;
> Width = 100, ;
> Name = "Text1"
>
>
> Procedure check1.Click
> If This.Value
> Set Notify On
> Else
> Set Notify Off
> Endif
> Thisform.Refresh()
> Endproc
>
>
> Procedure command1.Click
> Wait "Can you see me?" Window
> Endproc
>
>
>Enddefine
>*
>*-- EndDefine: form1
>**************************************************
>
>
If it's not broken, fix it until it is.
My Blog