Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Messagebox is not shown
Message
 
 
To
26/01/2005 15:06:07
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Miscellaneous
Thread ID:
00980856
Message ID:
00980918
Views:
53
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform