KnowledgeBase Archive

An Archive of Early Microsoft KnowledgeBase Articles

View on GitHub

Article: Q232130
Product(s): Microsoft FoxPro
Version(s): WINDOWS:5.0,5.0a,6.0,6.0 SP3
Operating System(s): 
Keyword(s): kbContainer kbCtrl kbvfp500aBUG kbvfp600bug kbGrpDSFox
Last Modified: 26-MAY-1999

-------------------------------------------------------------------------------
The information in this article applies to:

- Microsoft Visual FoxPro for Windows, versions 5.0, 5.0a, 6.0, 6.0 SP3 
-------------------------------------------------------------------------------

SYMPTOMS
========

You have a Visual FoxPro application which runs a modal form. This modal form
displays a second modal form. After closing the second modal form and returning
to the first modal form, the close box in the Visual FoxPro desktop becomes
disabled.

RESOLUTION
==========

As a workaround, in the Destroy method of the second modal form, set the form's
Visible property to .F. and toggle the _SCREEN.Closable property to .F. and back
to .T.. This code demonstrates:

  Thisform.Visible = .F.
  _SCREEN.Closable = .F.
  _SCREEN.Closable = .T.

There may be a very rapid flicker of the close box, but the flicker should only
be visible if you look directly at the close box when you close the form.

STATUS
======

Microsoft has confirmed this to be a bug in the Microsoft products listed at the
beginning of this article.

MORE INFORMATION
================

Steps to Reproduce Behavior
---------------------------

1. Run the following code from a program (.PRG) file:

  LOCAL loForm1
  loForm1 = CREATEOBJECT('form1')
  loForm1.SHOW

  Define CLASS form1 AS FORM
     Caption = 'Form 1 - Click on me to open next form'
     WindowType = 1
     Procedure CLICK
        LOCAL loForm2
        loForm2 = CREATEOBJECT('form2')
        loForm2.SHOW
     Endproc
  Enddefine

  Define CLASS form2 AS FORM
     Caption = 'Form 2 - Click on [X] to close me'
     AutoCenter = .T.
     WindowType = 1
     Procedure DESTROY
        * Uncomment following 3 lines of code for workaround
        * This.Visible = .F.
        * _Screen.Closable = .F.
        * _Screen.Closable = .T.
     Endproc
  Enddefine

2. Click on Form 1 in an area other than the titlebar. Form 2 displays.

3. Click on the close box in Form 2. This is the [X] in the upper right corner
  of the form.

4. The close box in the Visual FoxPro desktop is disabled. It appears grayed out
  and will not respond to mouse clicks.

5. Uncomment the code in the Destroy procedure for Form 2 to demonstrate the
  workaround.

REFERENCES
==========

(c) Microsoft Corporation 1999, All Rights Reserved. Contributions by Jim
Saunders, Microsoft Corporation.


Additional query words: KBDSE

======================================================================
Keywords          : kbContainer kbCtrl kbvfp500aBUG kbvfp600bug kbGrpDSFox 
Technology        : kbVFPsearch kbAudDeveloper kbVFP500 kbVFP600 kbVFP500a
Version           : WINDOWS:5.0,5.0a,6.0,6.0 SP3
Issue type        : kbbug
Solution Type     : kbpending

=============================================================================

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.

Q232130: BUG: Opening Then Closing 2nd Modal Form Disables VFP Close Box