Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Messagebox is not shown
Message
De
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:
00980917
Vues:
34
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
**************************************************
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform