Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Messagebox is not shown
Message
 
 
À
26/01/2005 15:06:07
Nancy Folsom
Pixel Dust Industries
Washington, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Divers
Thread ID:
00980856
Message ID:
00980918
Vues:
50
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform