Q175766: FIX: WAIT WINDOW NOWAIT Problem with Top-Level Forms
Article: Q175766
Product(s): Microsoft FoxPro
Version(s): WINDOWS:5.0,5.0a
Operating System(s):
Keyword(s): kbvfp
Last Modified: 23-MAR-2000
-------------------------------------------------------------------------------
The information in this article applies to:
- Microsoft Visual FoxPro for Windows, versions 5.0, 5.0a
-------------------------------------------------------------------------------
SYMPTOMS
========
When running a Visual FoxPro program that displays a WAIT WINDOW on activation
of a Top-Level form, the Top-Level form stops responding. The Top-Level form
does not close. The WAIT WINDOW does not close. If the Visual FoxPro desktop is
not hidden, it can be activated to access the Command window either by clicking
it or by clicking the button on the Windows Taskbar. Upon reactivating the
Top-Level form by clicking the Windows Taskbar button for the Top-Level form, a
transparent copy of the Top-Level form appears but the Top-Level form is still
unresponsive. Quit Visual FoxPro to eliminate the Top-Level form.
CAUSE
=====
There is a WAIT WINDOW "some message" NOWAIT command in the Activate method of
the Top-Level form, which is followed by the Thisform.Release command. The
problem still occurs if there is other code between the WAIT WINDOW command and
the Thisform.Release command.
RESOLUTION
==========
There are three possible workarounds, depending on what is desired:
- Use WAIT WINDOW "some message" TIMEOUT 1.
-or-
Use a number greater than one.
- Remove the WAIT WINDOW completely.
- Use WAIT WINDOW "some message" TIMEOUT 0.
-or-
Remove the TIMEOUT clause completely. Clicking the mouse is necessary in this
case though.
STATUS
======
Microsoft has confirmed this to be a bug in the Microsoft products listed at the
beginning of this article. This has been corrected in Visual FoxPro 6.0.
MORE INFORMATION
================
Steps to Reproduce Behavior
---------------------------
1. Place the following code in a new program file, save the code and run The
program. The code below is from a form created in the Form Designer that was
opened in the Class Browser. Note the PROCEDURE Activate.
***Start of program code
PUBLIC oform1
oform1=CREATEOBJECT("form1")
oform1.Show
RETURN
**************************************************
*-- Form: form1 (d:\dchou\test\test.scx)
*-- ParentClass: form
*-- BaseClass: form
*
DEFINE CLASS form1 AS form
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Caption = "Form1"
Name = "Form1"
PROCEDURE Activate
WAIT WINDOW "Some Message" NOWAIT
Thisform.Release
ENDPROC
ENDDEFINE
*
*-- EndDefine: form1
**************************************************
2. Click the form or WAIT WINDOW. There should be no response.
3. Click the Windows Taskbar button for Visual FoxPro. The Top-Level form should
disappear behind Visual FoxPro. Click the Windows Taskbar button for the
Top-Level form; it should be labeled Form1. The border and title bar of the
form may sometimes reappear. If the form appears, it will look transparent.
Additional query words: SDI Single Document Interface kbvfp600fix
======================================================================
Keywords : kbvfp
Technology : kbVFPsearch kbAudDeveloper kbVFP500 kbVFP500a
Version : WINDOWS:5.0,5.0a
Issue type : kbbug
Solution Type : kbfix
=============================================================================
THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.
Copyright Microsoft Corporation 1986-2002.